gcc/testsuite/gnat.dg/varsize3_pkg1.ads

   1 with Varsize3_Pkg2;
   2 with Varsize3_Pkg3;
   3
   4 package 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
  12 end Varsize3_Pkg1;