Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr8_pkg2.ads
blob: f98318a5aca23a3f250bede9db12d6c91df3d6c3 [
file
] [
log
] [
blame
]
with
Discr8_Pkg3
;
use
Discr8_Pkg3
;
package
Discr8_Pkg2
is
Max
:
constant
Natural
:=
Value
;
type
List_T
is
array
(
Natural
range
<>)
of
Integer
;
type L
is
record
List
:
List_T
(
1
..
Max
);
end
record
;
end
Discr8_Pkg2
;