1limited with Limited_With4_Pkg;
2
3package 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
29end Limited_With4;
30