gcc/testsuite/gnat.dg/varsize3_pkg1.ads

with Varsize3_Pkg2;
with Varsize3_Pkg3;

package Varsize3_Pkg1 is

   type Arr is array (Positive range 1 .. Varsize3_Pkg2.Last_Index) of Boolean;

   package My_G is new Varsize3_Pkg3 (Arr);

   type Object is new My_G.Object;

end Varsize3_Pkg1;