Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
task3.adb
blob: a73c2dcb2d618763e3b849efdffeaaf36ca8a305 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Ada
.
Unchecked_Deallocation
;
package
body
Task3
is
procedure
Destroy
(
Obj
:
in
out
Child_Wrapper
)
is
procedure
Free
is
new
Ada
.
Unchecked_Deallocation
(
Child
,
Child_Ptr
);
begin
Free
(
Obj
.
Ptr
);
end
Destroy
;
end
Task3
;