Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
access3.ads
blob: 18d453b329e2f72e2800746788efc63ac59ec632 [
file
] [
log
] [
blame
]
package
access3
is
type IT
is
limited
interface
;
type T
is
limited
new
IT
with
null
record
;
type T2
is
tagged limited
null
record
;
procedure
Op
(
Obj_T2
:
in
out
T2
;
Obj_IT
:
not
null
access IT
'Class);
end access3;