-- PERFORMANCE MEASUREMENT : Elaboration, allocation and freeing of
--                           record containing a dynamic array

package Dynamic_Array_Package_3 is
    Dynamic_Size : Integer;
    type Dynamic_Array is array (Integer range <>) of Integer;
    type Dynamic_Record (Size : Integer) is
        record
            Inside_Array : Dynamic_Array (1 .. Size);
        end record;
    Local_Array : Dynamic_Record (1000);
    procedure Proc_Control;
    procedure Proc_Test;
end Dynamic_Array_Package_3;