gcc/testsuite/gnat.dg/interface9_root.ads

   1 generic
   2    type Real is digits <>;
   3 package Interface9_Root is
   4    type Base_Interface is limited interface;
   5
   6    procedure Primitive1 (B : in out Base_Interface) is abstract;
   7    procedure Primitive2 (B : in out Base_Interface) is null;
   8
   9    type Derived_Interface is limited interface and Base_Interface;
  10 end Interface9_Root;