gcc/testsuite/gnat.dg/controlled3.ads

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