gcc/testsuite/gnat.dg/interface4.adb

   1 --  { dg-do compile }
   2
   3 procedure interface4 is
   4      generic
   5        type I1 is interface;
   6        type I2 is limited interface;
   7        type I3 is interface and I1;
   8        type I4 is limited interface and I2;
   9      package Pack_I is
  10      end Pack_I;
  11 begin
  12      null;
  13 end interface4;