|
111
|
1 /* { dg-do run } */
|
|
|
2
|
|
|
3 extern void abort (void);
|
|
|
4 int x = 6;
|
|
|
5 float y;
|
|
|
6
|
|
|
7 int
|
|
|
8 main (void)
|
|
|
9 {
|
|
|
10 int v;
|
|
|
11 float f;
|
|
|
12 #pragma omp atomic read
|
|
|
13 v = x;
|
|
|
14 if (v != 6)
|
|
|
15 abort ();
|
|
|
16 #pragma omp atomic write
|
|
|
17 x = 17;
|
|
|
18 #pragma omp atomic read
|
|
|
19 v = x;
|
|
|
20 if (v != 17)
|
|
|
21 abort ();
|
|
|
22 #pragma omp atomic update
|
|
|
23 x++;
|
|
|
24 #pragma omp atomic read
|
|
|
25 v = x;
|
|
|
26 if (v != 18)
|
|
|
27 abort ();
|
|
|
28 #pragma omp atomic capture
|
|
|
29 v = x++;
|
|
|
30 if (v != 18)
|
|
|
31 abort ();
|
|
|
32 #pragma omp atomic read
|
|
|
33 v = x;
|
|
|
34 if (v != 19)
|
|
|
35 abort ();
|
|
|
36 #pragma omp atomic capture
|
|
|
37 v = ++x;
|
|
|
38 if (v != 20)
|
|
|
39 abort ();
|
|
|
40 #pragma omp atomic read
|
|
|
41 v = x;
|
|
|
42 if (v != 20)
|
|
|
43 abort ();
|
|
|
44 #pragma omp atomic capture
|
|
|
45 { v = x; x *= 3; }
|
|
|
46 if (v != 20)
|
|
|
47 abort ();
|
|
|
48 #pragma omp atomic read
|
|
|
49 v = x;
|
|
|
50 if (v != 60)
|
|
|
51 abort ();
|
|
|
52 #pragma omp atomic capture
|
|
|
53 {
|
|
|
54 x |= 2;
|
|
|
55 v = x;
|
|
|
56 }
|
|
|
57 if (v != 62)
|
|
|
58 abort ();
|
|
|
59 #pragma omp atomic read
|
|
|
60 v = x;
|
|
|
61 if (v != 62)
|
|
|
62 abort ();
|
|
|
63 #pragma omp atomic capture
|
|
|
64 { v = x; x++; }
|
|
|
65 if (v != 62)
|
|
|
66 abort ();
|
|
|
67 #pragma omp atomic capture
|
|
|
68 { v = x; ++x; }
|
|
|
69 if (v != 63)
|
|
|
70 abort ();
|
|
|
71 #pragma omp atomic capture
|
|
|
72 {
|
|
|
73 ++x;
|
|
|
74 v = x;
|
|
|
75 }
|
|
|
76 if (v != 65)
|
|
|
77 abort ();
|
|
|
78 #pragma omp atomic capture
|
|
|
79 {x++;v=x;}if (v != 66)
|
|
|
80 abort ();
|
|
|
81 #pragma omp atomic read
|
|
|
82 v = x;
|
|
|
83 if (v != 66)
|
|
|
84 abort ();
|
|
|
85 #pragma omp atomic capture
|
|
|
86 { v = x; x--; }
|
|
|
87 if (v != 66)
|
|
|
88 abort ();
|
|
|
89 #pragma omp atomic capture
|
|
|
90 { v = x; --x; }
|
|
|
91 if (v != 65)
|
|
|
92 abort ();
|
|
|
93 #pragma omp atomic capture
|
|
|
94 {
|
|
|
95 --x;
|
|
|
96 v = x;
|
|
|
97 }
|
|
|
98 if (v != 63)
|
|
|
99 abort ();
|
|
|
100 #pragma omp atomic capture
|
|
|
101 { x--; v = x; } if (v != 62)
|
|
|
102 abort ();
|
|
|
103 #pragma omp atomic read
|
|
|
104 v = x;
|
|
|
105 if (v != 62)
|
|
|
106 abort ();
|
|
|
107 #pragma omp atomic write
|
|
|
108 y = 17.5f;
|
|
|
109 #pragma omp atomic read
|
|
|
110 f = y;
|
|
|
111 if (f != 17.5)
|
|
|
112 abort ();
|
|
|
113 #pragma omp atomic update
|
|
|
114 y *= 2.0f;
|
|
|
115 #pragma omp atomic read
|
|
|
116 f = y;
|
|
|
117 if (y != 35.0)
|
|
|
118 abort ();
|
|
|
119 #pragma omp atomic capture
|
|
|
120 f = y *= 2.0f;
|
|
|
121 if (f != 70.0)
|
|
|
122 abort ();
|
|
|
123 #pragma omp atomic capture
|
|
|
124 f = y++;
|
|
|
125 if (f != 70.0)
|
|
|
126 abort ();
|
|
|
127 #pragma omp atomic read
|
|
|
128 f = y;
|
|
|
129 if (f != 71.0)
|
|
|
130 abort ();
|
|
|
131 #pragma omp atomic capture
|
|
|
132 f = --y;
|
|
|
133 if (f != 70.0)
|
|
|
134 abort ();
|
|
|
135 #pragma omp atomic read
|
|
|
136 f = y;
|
|
|
137 if (f != 70.0)
|
|
|
138 abort ();
|
|
|
139 #pragma omp atomic capture
|
|
|
140 { f = y; y /= 2.0f; }
|
|
|
141 if (f != 70.0)
|
|
|
142 abort ();
|
|
|
143 #pragma omp atomic read
|
|
|
144 f = y;
|
|
|
145 if (f != 35.0)
|
|
|
146 abort ();
|
|
|
147 #pragma omp atomic capture
|
|
|
148 { y /= 2.0f; f = y; }
|
|
|
149 if (f != 17.5)
|
|
|
150 abort ();
|
|
|
151 #pragma omp atomic read
|
|
|
152 f = y;
|
|
|
153 if (f != 17.5)
|
|
|
154 abort ();
|
|
|
155 return 0;
|
|
|
156 }
|
