gcc/testsuite/gnat.dg/limited_with2.ads

   1 with Limited_With2_Pkg1;
   2
   3 package Limited_With2 is
   4
   5    type Rec1 is record
   6      F : Limited_With2_Pkg1.Rec2;
   7    end record;
   8
   9    function Func (Val : Rec1) return Limited_With2_Pkg1.Rec2;
  10
  11 end Limited_With2;