Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr34_pkg.ads
blob: 9a3380e371d2ae5527581aab170b582abc5d74a1 [
file
] [
log
] [
blame
]
package
Discr34_Pkg
is
function
N
return
Natural
;
type
Enum
is
(
One
,
Two
);
type
Rec
(
D
:
Enum
:=
One
)
is
record
case
D
is
when
One
=>
S
:
String
(
1
..
N
);
when
Two
=>
null
;
end
case
;
end
record
;
function
F
return
Rec
;
end
Discr34_Pkg
;