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