gcc/testsuite/gnat.dg/limited_with4.ads

   1 limited with Limited_With4_Pkg;
   2
   3 package Limited_With4 is
   4
   5   type Ptr1 is access procedure (A : Limited_With4_Pkg.Rec12; I : Integer);
   6
   7   type Ptr2 is access procedure (A : Limited_With4_Pkg.Rec22; I : Integer);
   8
   9   type Rec1 is record
  10     I : Integer;
  11   end record;
  12
  13   procedure Proc1 (A : Limited_With4_Pkg.Rec12 ; I : Integer);
  14
  15   function Func1 (I : Integer) return Limited_With4_Pkg.Rec12;
  16
  17   procedure Proc2 (A : Limited_With4_Pkg.Rec22 ; I : Integer);
  18
  19   function Func2 (I : Integer) return Limited_With4_Pkg.Rec22;
  20
  21   type Rec2 is record
  22     I : Integer;
  23   end record;
  24
  25   procedure Proc3 (A : Limited_With4_Pkg.Rec12 ; B : Limited_With4_Pkg.Rec22);
  26
  27   function Func3 (A : Limited_With4_Pkg.Rec12) return Limited_With4_Pkg.Rec22;
  28
  29 end Limited_With4;