with Remote_Global;
use Remote_Global;
package body Proc_Package_3 is -- compare to P000002 ( local procedure )
    procedure Proc_0 is
    begin
        Global := Global + A_One;
        Remote;
    end Proc_0;
end Proc_Package_3;