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