2 -- { dg-options "-gnatws" }
6 type Rec_Comp (D : access Integer) is record
11 procedure Test (Obj : I) is abstract;
13 Num : aliased Integer := 10;
15 type Root (D : access Integer) is tagged record
16 C1 : Rec_Comp (D); -- test
19 type DT is new Root and I with null record;
21 procedure Dummy (Obj : DT);
22 procedure Test (Obj : DT);
26 procedure Dummy (Obj : DT) is
31 procedure Test (Obj : DT) is
39 procedure CW_Test (Obj : I'Class) is
44 Obj : DT (Num'Access);