Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
task3.ads
blob: 324d894921243950395c9a895ebe4052c8405e60 [
file
] [
log
] [
blame
]
with
Task3_Pkg2
;
use
Task3_Pkg2
;
package
Task3
is
type
Child
is
new
Root
with
null
record
;
type
Child_Ptr
is
access
Child
;
type
Child_Wrapper
is
record
Ptr
:
Child_Ptr
:=
null
;
end
record
;
procedure
Destroy
(
Obj
:
in
out
Child_Wrapper
);
end
Task3
;