gcc/testsuite/gnat.dg/array23_pkg2.ads


1
2
3
4
5
6
7
8
9
10
11

with Array23_Pkg3;

package Array23_Pkg2 is

   C1 : Natural := Array23_Pkg3.C0;

   type Enum is (Zero, One, Two);

   subtype Index is Enum range One .. Enum'val(C1);

end Array23_Pkg2;