gcc/testsuite/gnat.dg/limited_with5_pkg.ads

   1 limited with Limited_With5;
   2
   3 package Limited_With5_Pkg is
   4   type T is limited private;
   5   function Get_Expression_Support (Obj : T) return Limited_With5.Sup_T with Inline;
   6 private
   7   type T is new Integer;
   8 end Limited_With5_Pkg;