with Remote_Global;
use Remote_Global;
package body Dynamic_Array_Package_2 is

    procedure Proc_Control is
    begin
        Global := Global + A_One;
        Local_Array (Global) := Global;
        Remote;
        Global := Local_Array (Global);
    end Proc_Control;

    procedure Proc_Test is
        Proc_Array : Dynamic_Array (1 .. Dynamic_Size) := (others => 1);
    begin
        Global := Global + A_One;
        Proc_Array (Global) := Global;
        Remote;
        Global := Proc_Array (Global);
    end Proc_Test;

end Dynamic_Array_Package_2;