gcc/testsuite/gnat.dg/limited_with6.ads

   1 with Limited_With6_Pkg;
   2
   3 package Limited_With6 is
   4   type Sup_T is new Integer;
   5   procedure Doit (Obj : Limited_With6_Pkg.T);
   6
   7   type Rec is record
   8     A : Limited_With6_Pkg.Taft_Ptr;
   9   end record;
  10 end Limited_With6;