gcc/testsuite/gnat.dg/array23_pkg1.ads

   1 with Array23_Pkg2;
   2
   3 package Array23_Pkg1 is
   4
   5    C2 : Natural := Array23_Pkg2.C1;
   6
   7    subtype Index is Natural range 0 .. C2;
   8
   9    type Inner is array (Index) of Natural;
  10
  11    type Arr is array (Array23_Pkg2.Index) of Inner;
  12
  13 end Array23_Pkg1;