finalized.adb

来自「用于进行gcc测试」· ADB 代码 · 共 10 行

-- { 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;