gcc/testsuite/gnat.dg/limited_with6_pkg.ads

   1 limited with Limited_With6;
   2
   3 package Limited_With6_Pkg is
   4   type T is limited private;
   5   function Get_Expression_Support (Obj : T) return Limited_With6.Sup_T with Inline;
   6
   7   type Taft_Ptr is private;
   8
   9 private
  10   type T is new Integer;
  11
  12   type TT;
  13   type Taft_Ptr is access TT;
  14 end Limited_With6_Pkg;