gcc/testsuite/gnat.dg/atomic11_pkg1.ads


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

with Atomic11_Pkg2;

package Atomic11_Pkg1 is

  type Rec1 is record
    I : Integer;
  end record;

  procedure Proc1 (R : Rec1);
  pragma Import (C, Proc1);

  type Arr is array (Positive range <>) of Integer;

  type Rec2 is record
    A : Arr (1 .. Atomic11_Pkg2.Max);
  end record;

  procedure Proc2 (R : Rec2);

end Atomic11_Pkg1;