gcc/testsuite/gnat.dg/limited_with4_pkg.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

with Limited_With4;

package Limited_With4_Pkg is

  P1 : Limited_With4.Ptr1 := Limited_With4.Proc1'Access;

  P2 : Limited_With4.Ptr2 := Limited_With4.Proc2'Access;

  type Rec12 is record
    I : Integer;
    R : Limited_With4.Rec1;
  end record;

  type Rec22 is record
    I : Integer;
    R : Limited_With4.Rec2;
  end record;

end Limited_With4_Pkg;