-- PERFORMANCE MEASUREMENT : Elaboration, allocation and freeing of
--                           a dynamic array initialized with others

package Dynamic_Array_Package_2 is
    Dynamic_Size : Integer;
    type Dynamic_Array is array (Integer range <>) of Integer;
    Local_Array : Dynamic_Array (1 .. 1000) := (others => 1);
    procedure Proc_Control;
    procedure Proc_Test;
end Dynamic_Array_Package_2;