gcc/testsuite/gnat.dg/specs/cpp1.ads

   1 --  { dg-do compile }
   2
   3 package 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;
  10 end cpp1;