Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gnat.dg/atomic11_pkg1.ads @ 158:494b0b89df80 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
145
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
1 with Atomic11_Pkg2;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
2
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
3 package Atomic11_Pkg1 is
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
4
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
5 type Rec1 is record
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
6 I : Integer;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
7 end record;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
8
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
9 procedure Proc1 (R : Rec1);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
10 pragma Import (C, Proc1);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
11
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
12 type Arr is array (Positive range <>) of Integer;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
13
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
14 type Rec2 is record
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
15 A : Arr (1 .. Atomic11_Pkg2.Max);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
16 end record;
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
17
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
18 procedure Proc2 (R : Rec2);
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
19
1830386684a0 gcc-9.2.0
anatofuz
parents:
diff changeset
20 end Atomic11_Pkg1;