Fix broken MinGW build of gcc.c

[official-gcc.git] / gcc / testsuite / gnat.dg / finalized.adb

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