1 /* PR libgomp/29947 */
2
3 /* { dg-do run } */
4
5 extern void abort (void);
6
7 int cnt;
8
9 void
10 test1 (long j1, long k1, long j2, long k2)
11 {
12 long i, e = 0, c = 0;
13 #pragma omp parallel reduction (+:e,c)
14 {
15 #pragma omp for schedule (static)
16 for (i = j1; i <= k1; ++i)
17 {
18 if (i < j2 || i > k2)
19 ++e;
20 ++c;
21 }
22 #pragma omp atomic
23 ++cnt;
24 }
25 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
26 abort ();
27 }
28
29 void
30 test2 (long j1, long k1, long j2, long k2)
31 {
32 long i, e = 0, c = 0;
33 #pragma omp parallel reduction (+:e,c)
34 {
35 #pragma omp for schedule (static)
36 for (i = k1; i >= j1; --i)
37 {
38 if (i < j2 || i > k2)
39 ++e;
40 ++c;
41 }
42 #pragma omp atomic
43 ++cnt;
44 }
45 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
46 abort ();
47 }
48
49 void
50 test3 (long j1, long k1, long j2, long k2)
51 {
52 long i, e = 0, c = 0;
53 #pragma omp parallel reduction (+:e,c)
54 {
55 #pragma omp for schedule (static, 1)
56 for (i = j1; i <= k1; ++i)
57 {
58 if (i < j2 || i > k2)
59 ++e;
60 ++c;
61 }
62 #pragma omp atomic
63 ++cnt;
64 }
65 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
66 abort ();
67 }
68
69 void
70 test4 (long j1, long k1, long j2, long k2)
71 {
72 long i, e = 0, c = 0;
73 #pragma omp parallel reduction (+:e,c)
74 {
75 #pragma omp for schedule (static, 1)
76 for (i = k1; i >= j1; --i)
77 {
78 if (i < j2 || i > k2)
79 ++e;
80 ++c;
81 }
82 #pragma omp atomic
83 ++cnt;
84 }
85 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
86 abort ();
87 }
88
89 void
90 test5 (long j1, long k1, long j2, long k2)
91 {
92 long i, e = 0, c = 0;
93 #pragma omp parallel reduction (+:e,c)
94 {
95 #pragma omp for schedule (static) ordered
96 for (i = j1; i <= k1; ++i)
97 {
98 if (i < j2 || i > k2)
99 ++e;
100 #pragma omp ordered
101 ++c;
102 }
103 #pragma omp atomic
104 ++cnt;
105 }
106 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
107 abort ();
108 }
109
110 void
111 test6 (long j1, long k1, long j2, long k2)
112 {
113 long i, e = 0, c = 0;
114 #pragma omp parallel reduction (+:e,c)
115 {
116 #pragma omp for schedule (static) ordered
117 for (i = k1; i >= j1; --i)
118 {
119 if (i < j2 || i > k2)
120 ++e;
121 #pragma omp ordered
122 ++c;
123 }
124 #pragma omp atomic
125 ++cnt;
126 }
127 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
128 abort ();
129 }
130
131 void
132 test7 (long j1, long k1, long j2, long k2)
133 {
134 long i, e = 0, c = 0;
135 #pragma omp parallel reduction (+:e,c)
136 {
137 #pragma omp for schedule (static, 1) ordered
138 for (i = j1; i <= k1; ++i)
139 {
140 if (i < j2 || i > k2)
141 ++e;
142 #pragma omp ordered
143 ++c;
144 }
145 #pragma omp atomic
146 ++cnt;
147 }
148 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
149 abort ();
150 }
151
152 void
153 test8 (long j1, long k1, long j2, long k2)
154 {
155 long i, e = 0, c = 0;
156 #pragma omp parallel reduction (+:e,c)
157 {
158 #pragma omp for schedule (static, 1) ordered
159 for (i = k1; i >= j1; --i)
160 {
161 if (i < j2 || i > k2)
162 ++e;
163 #pragma omp ordered
164 ++c;
165 }
166 #pragma omp atomic
167 ++cnt;
168 }
169 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
170 abort ();
171 }
172
173 void
174 test9 (long j1, long k1, long j2, long k2)
175 {
176 long i, e = 0, c = 0;
177 #pragma omp parallel for reduction (+:e,c) schedule (static)
178 for (i = j1; i <= k1; ++i)
179 {
180 if (i < j2 || i > k2)
181 ++e;
182 ++c;
183 }
184 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
185 abort ();
186 }
187
188 void
189 test10 (long j1, long k1, long j2, long k2)
190 {
191 long i, e = 0, c = 0;
192 #pragma omp parallel for reduction (+:e,c) schedule (static)
193 for (i = k1; i >= j1; --i)
194 {
195 if (i < j2 || i > k2)
196 ++e;
197 ++c;
198 }
199 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
200 abort ();
201 }
202
203 void
204 test11 (long j1, long k1, long j2, long k2)
205 {
206 long i, e = 0, c = 0;
207 #pragma omp parallel for reduction (+:e,c) schedule (static, 1)
208 for (i = j1; i <= k1; ++i)
209 {
210 if (i < j2 || i > k2)
211 ++e;
212 ++c;
213 }
214 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
215 abort ();
216 }
217
218 void
219 test12 (long j1, long k1, long j2, long k2)
220 {
221 long i, e = 0, c = 0;
222 #pragma omp parallel for reduction (+:e,c) schedule (static, 1)
223 for (i = k1; i >= j1; --i)
224 {
225 if (i < j2 || i > k2)
226 ++e;
227 ++c;
228 }
229 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
230 abort ();
231 }
232
233 void
234 test13 (long j1, long k1, long j2, long k2)
235 {
236 long i, e = 0, c = 0;
237 #pragma omp parallel for reduction (+:e,c) schedule (static) ordered
238 for (i = j1; i <= k1; ++i)
239 {
240 if (i < j2 || i > k2)
241 ++e;
242 #pragma omp ordered
243 ++c;
244 }
245 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
246 abort ();
247 }
248
249 void
250 test14 (long j1, long k1, long j2, long k2)
251 {
252 long i, e = 0, c = 0;
253 #pragma omp parallel for reduction (+:e,c) schedule (static) ordered
254 for (i = k1; i >= j1; --i)
255 {
256 if (i < j2 || i > k2)
257 ++e;
258 #pragma omp ordered
259 ++c;
260 }
261 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
262 abort ();
263 }
264
265 void
266 test15 (long j1, long k1, long j2, long k2)
267 {
268 long i, e = 0, c = 0;
269 #pragma omp parallel for reduction (+:e,c) schedule (static, 1) ordered
270 for (i = j1; i <= k1; ++i)
271 {
272 if (i < j2 || i > k2)
273 ++e;
274 #pragma omp ordered
275 ++c;
276 }
277 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
278 abort ();
279 }
280
281 void
282 test16 (long j1, long k1, long j2, long k2)
283 {
284 long i, e = 0, c = 0;
285 #pragma omp parallel for reduction (+:e,c) schedule (static, 1) ordered
286 for (i = k1; i >= j1; --i)
287 {
288 if (i < j2 || i > k2)
289 ++e;
290 #pragma omp ordered
291 ++c;
292 }
293 if (e || (c != j2 > k2 ? 0 : k2 - j2 + 1))
294 abort ();
295 }
296
297 int
298 __attribute__((noinline))
299 test (long j1, long k1, long j2, long k2)
300 {
301 test1 (j1, k1, j2, k2);
302 test2 (j1, k1, j2, k2);
303 test3 (j1, k1, j2, k2);
304 test4 (j1, k1, j2, k2);
305 test5 (j1, k1, j2, k2);
306 test6 (j1, k1, j2, k2);
307 test7 (j1, k1, j2, k2);
308 test8 (j1, k1, j2, k2);
309 test9 (j1, k1, j2, k2);
310 test10 (j1, k1, j2, k2);
311 test11 (j1, k1, j2, k2);
312 test12 (j1, k1, j2, k2);
313 test13 (j1, k1, j2, k2);
314 test14 (j1, k1, j2, k2);
315 test15 (j1, k1, j2, k2);
316 test16 (j1, k1, j2, k2);
317 return cnt;
318 }
319
320 int
321 main (void)
322 {
323 test (1, 5, 1, 5);
324 test (5, 5, 5, 5);
325 test (5, 4, 5, 4);
326 test (5, 1, 5, 1);
327 return 0;
328 }