Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
discr26.ads
blob: 5a428f2bfed8f9fc919cd5c72564d1c1c8933294 [
file
] [
log
] [
blame
]
with
Discr26_Pkg
;
package
Discr26
is
type T1
(
D
:
Integer
)
is
record
case
D
is
when
1
=>
I
:
Integer
;
when
others
=>
null
;
end
case
;
end
record
;
type
My_T1
is
new
T1
(
Discr26_Pkg
.
N
);
procedure
Proc
;
end
Discr26
;