Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
pak.ads
blob: e1e2d0d4d63c9be46d7b3123733dd806bc0dc9aa [
file
] [
log
] [
blame
]
with
Ada
.
Finalization
;
package
Pak
is
type T
is
new
Ada
.
Finalization
.
Controlled
with
null
record
;
procedure
Initialize
(
X
:
in
out
T
);
procedure
Finalize
(
X
:
in
out
T
);
procedure
Assign
(
X
:
out
T
'Class);
end Pak;