gcc/cp
[official-gcc.git] / gcc / testsuite / gnat.dg / controlled3.ads
blob4dee28a3cdcd30c58ed98eb26c8afb49d1a2e547
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);
6 type Test_Case1 is new Test with null record;
7 type Test_Suite is new Test with null record;
9 type Test_Case is new Test_Case1 with record
10 Link_Under_Test : Natural;
11 end record;
12 end;