1-- { dg-do compile } 2 3package cpp1 is 4 type Root_Interface is interface; 5 6 type Typ is new Root_Interface with record 7 TOTO : Integer; 8 pragma CPP_Vtable (TOTO); 9 end record; 10end cpp1; 11