1with Varsize3_Pkg2;
2with Varsize3_Pkg3;
3
4package Varsize3_Pkg1 is
5
6   type Arr is array (Positive range 1 .. Varsize3_Pkg2.Last_Index) of Boolean;
7
8   package My_G is new Varsize3_Pkg3 (Arr);
9
10   type Object is new My_G.Object;
11
12end Varsize3_Pkg1;
13