with Remote_Global;
use Remote_Global;
package body Proc_Package_7 is -- compare to P000005 & 6
    procedure Proc_0 (A : in out Integer) is
    begin
        A := A + A_One;
        Remote;
    end Proc_0;
end Proc_Package_7;