gcc/testsuite/gnat.dg/controlled1.ads

   1
   2 with Ada.Finalization; use Ada.Finalization;
   3 package controlled1 is
   4    type Test is new Controlled with null record;
   5    procedure Add_Test (T : access Test'Class);
   6
   7    type Test_Case1 is new Test with null record;
   8    type Test_Suite is new Test with null record;
   9
  10    type Test_Case is new Test_Case1 with record
  11       Link_Under_Test : Natural;
  12    end record;
  13 end;