Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
array23_pkg2.ads
blob: 8993ffa1e5d85095cbbd228131ab4fc1544069b1 [
file
] [
log
] [
blame
]
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;