1with Packed_Array_Pkg; use Packed_Array_Pkg;
2
3package Packed_Array is
4
5  C : constant Small_Rec2 := (Lo => 1, Hi => Max, A => (1 => (2, 3)));
6
7  procedure Dummy;
8
9end;
10