Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
asynch.ads
blob: c9b70aaf00ed893bdccf6e210ac80aebfbe724da [
file
] [
log
] [
blame
]
with
Ada
.
Finalization
;
package
asynch
is
type t_ctrl
is
new
Ada
.
Finalization
.
Controlled
with
record
stuff
:
Natural
:=
0
;
end
record
;
function
null_ctrl
return
t_ctrl
;
end
asynch
;