Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gnat.dg
/
finalized.adb
blob: 36400d53ecc2f7b480a40c436a827ce0f7b2a815 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Ada
.
Finalization
;
use
Ada
.
Finalization
;
procedure finalized
is
type
Rec
is
new
Controlled
with
null
record
;
Obj
:
access
Rec
:=
new
Rec
'(Controlled with null record);
begin
null;
end;