gcc/testsuite/gnat.dg/limited_with4_pkg.ads

   1 with Limited_With4;
   2
   3 package Limited_With4_Pkg is
   4
   5   P1 : Limited_With4.Ptr1 := Limited_With4.Proc1'Access;
   6
   7   P2 : Limited_With4.Ptr2 := Limited_With4.Proc2'Access;
   8
   9   type Rec12 is record
  10     I : Integer;
  11     R : Limited_With4.Rec1;
  12   end record;
  13
  14   type Rec22 is record
  15     I : Integer;
  16     R : Limited_With4.Rec2;
  17   end record;
  18
  19 end Limited_With4_Pkg;