1 /* PR c/70436 */
2 /* { dg-additional-options "-Wparentheses -fno-openmp" } */
3
4 int a, b, c;
5 void bar (void);
6 void baz (void);
7 void f1 (void);
8 #pragma omp declare target to (bar, baz, f1, a, b, c)
9
10 void
11 f1 (void)
12 {
13 int i, j;
14
15 if (a) /* { dg-warning "ambiguous" } */
16 #pragma omp distribute
17 for (i = 0; i < 10; i++)
18 if (b)
19 bar ();
20 else
21 baz ();
22
23 if (a) /* { dg-warning "ambiguous" } */
24 for (i = 0; i < 10; i++)
25 #pragma omp distribute simd
26 for (j = 0; j < 10; j++)
27 if (b)
28 bar ();
29 else
30 baz ();
31
32 if (a)
33 #pragma omp distribute parallel for
34 for (i = 0; i < 10; i++)
35 if (b) /* { dg-warning "ambiguous" } */
36 #pragma omp parallel for
37 for (j = 0; j < 10; j++)
38 if (c)
39 bar ();
40 else
41 baz ();
42
43 if (a) /* { dg-warning "ambiguous" } */
44 #pragma omp distribute parallel for simd collapse(2)
45 for (i = 0; i < 10; i++)
46 for (j = 0; j < 10; j++)
47 if (b)
48 bar ();
49 else
50 baz ();
51
52 if (a)
53 #pragma omp distribute
54 for (i = 0; i < 10; i++)
55 {
56 if (b)
57 bar ();
58 else
59 baz ();
60 }
61
62 if (a)
63 {
64 #pragma omp distribute simd
65 for (i = 0; i < 10; ++i)
66 if (b)
67 bar ();
68 }
69 else baz ();
70
71 if (a)
72 #pragma omp distribute parallel for collapse(2)
73 for (i = 0; i < 10; i++)
74 {
75 for (j = 0; j < 10; j++)
76 if (b)
77 bar ();
78 else
79 baz ();
80 }
81
82 if (a)
83 for (i = 0; i < 10; i++)
84 #pragma omp distribute parallel for simd
85 for (j = 0; j < 10; j++)
86 {
87 if (b)
88 bar ();
89 }
90 else
91 baz ();
92 }
93
94 void
95 f2 (void)
96 {
97 int i, j;
98
99 if (a) /* { dg-warning "ambiguous" } */
100 #pragma omp target teams distribute
101 for (i = 0; i < 10; i++)
102 if (b)
103 bar ();
104 else
105 baz ();
106
107 if (a) /* { dg-warning "ambiguous" } */
108 for (i = 0; i < 10; i++)
109 #pragma omp target teams distribute simd
110 for (j = 0; j < 10; j++)
111 if (b)
112 bar ();
113 else
114 baz ();
115
116 if (a)
117 #pragma omp target teams distribute parallel for
118 for (i = 0; i < 10; i++)
119 if (b) /* { dg-warning "ambiguous" } */
120 #pragma omp parallel for
121 for (j = 0; j < 10; j++)
122 if (c)
123 bar ();
124 else
125 baz ();
126
127 if (a) /* { dg-warning "ambiguous" } */
128 #pragma omp target teams distribute parallel for simd collapse(2)
129 for (i = 0; i < 10; i++)
130 for (j = 0; j < 10; j++)
131 if (b)
132 bar ();
133 else
134 baz ();
135
136 if (a) /* { dg-warning "ambiguous" } */
137 #pragma omp target teams
138 if (b)
139 bar ();
140 else
141 baz ();
142
143 if (a) /* { dg-warning "ambiguous" } */
144 #pragma omp target
145 #pragma omp parallel
146 if (b)
147 bar ();
148 else
149 baz ();
150
151 if (a) /* { dg-warning "ambiguous" } */
152 #pragma omp target
153 if (b)
154 bar ();
155 else
156 baz ();
157
158 if (a) /* { dg-warning "ambiguous" } */
159 #pragma omp target parallel
160 if (b)
161 bar ();
162 else
163 baz ();
164
165 if (a) /* { dg-warning "ambiguous" } */
166 #pragma omp target simd
167 for (i = 0; i < 10; i++)
168 if (b)
169 bar ();
170 else
171 baz ();
172
173 if (a) /* { dg-warning "ambiguous" } */
174 #pragma omp target simd collapse(2)
175 for (i = 0; i < 10; i++)
176 for (j = 0; j < 10; j++)
177 if (b)
178 bar ();
179 else
180 baz ();
181
182 if (a)
183 #pragma omp target teams distribute
184 for (i = 0; i < 10; i++)
185 {
186 if (b)
187 bar ();
188 else
189 baz ();
190 }
191
192 if (a)
193 {
194 #pragma omp target teams distribute simd
195 for (i = 0; i < 10; ++i)
196 if (b)
197 bar ();
198 }
199 else baz ();
200
201 if (a)
202 #pragma omp target teams distribute parallel for collapse(2)
203 for (i = 0; i < 10; i++)
204 {
205 for (j = 0; j < 10; j++)
206 if (b)
207 bar ();
208 else
209 baz ();
210 }
211
212 if (a)
213 for (i = 0; i < 10; i++)
214 #pragma omp target teams distribute parallel for simd
215 for (j = 0; j < 10; j++)
216 {
217 if (b)
218 bar ();
219 }
220 else
221 baz ();
222
223 if (a)
224 #pragma omp target teams
225 {
226 if (b)
227 bar ();
228 }
229 else
230 baz ();
231
232 if (a)
233 #pragma omp target
234 #pragma omp parallel
235 {
236 if (b)
237 bar ();
238 else
239 baz ();
240 }
241
242 if (a)
243 #pragma omp target
244 {
245 if (b)
246 bar ();
247 }
248 else
249 baz ();
250
251 if (a)
252 #pragma omp target parallel
253 {
254 if (b)
255 bar ();
256 }
257 else
258 baz ();
259
260 if (a)
261 #pragma omp target simd
262 for (i = 0; i < 10; i++)
263 {
264 if (b)
265 bar ();
266 else
267 baz ();
268 }
269
270 if (a)
271 #pragma omp target simd
272 for (i = 0; i < 10; i++)
273 {
274 if (b)
275 bar ();
276 }
277 else
278 baz ();
279
280 if (a)
281 #pragma omp target simd collapse(2)
282 for (i = 0; i < 10; i++)
283 { {
284 for (j = 0; j < 10; j++)
285 if (b)
286 bar ();
287 else
288 baz ();
289 } }
290
291 if (a)
292 #pragma omp target simd collapse(2)
293 for (i = 0; i < 10; i++)
294 { {
295 for (j = 0; j < 10; j++)
296 if (b)
297 bar ();
298 }
299 }
300 else
301 baz ();
302 }
303
304 void
305 f3 (void)
306 {
307 int i, j;
308
309 if (a) /* { dg-warning "ambiguous" } */
310 #pragma omp target
311 #pragma omp teams distribute
312 for (i = 0; i < 10; i++)
313 if (b)
314 bar ();
315 else
316 baz ();
317
318 if (a) /* { dg-warning "ambiguous" } */
319 for (i = 0; i < 10; i++)
320 #pragma omp target
321 #pragma omp teams distribute simd
322 for (j = 0; j < 10; j++)
323 if (b)
324 bar ();
325 else
326 baz ();
327
328 if (a)
329 #pragma omp target
330 #pragma omp teams distribute parallel for
331 for (i = 0; i < 10; i++)
332 if (b) /* { dg-warning "ambiguous" } */
333 #pragma omp parallel for
334 for (j = 0; j < 10; j++)
335 if (c)
336 bar ();
337 else
338 baz ();
339
340 if (a) /* { dg-warning "ambiguous" } */
341 #pragma omp target
342 #pragma omp teams distribute parallel for simd collapse(2)
343 for (i = 0; i < 10; i++)
344 for (j = 0; j < 10; j++)
345 if (b)
346 bar ();
347 else
348 baz ();
349
350 if (a) /* { dg-warning "ambiguous" } */
351 #pragma omp target
352 #pragma omp teams
353 if (b)
354 bar ();
355 else
356 baz ();
357
358 if (a) /* { dg-warning "ambiguous" } */
359 #pragma omp target
360 #pragma omp teams
361 #pragma omp parallel
362 if (b)
363 bar ();
364 else
365 baz ();
366
367 if (a)
368 #pragma omp target
369 #pragma omp teams distribute
370 for (i = 0; i < 10; i++)
371 {
372 if (b)
373 bar ();
374 else
375 baz ();
376 }
377
378 if (a)
379 {
380 #pragma omp target
381 #pragma omp teams distribute simd
382 for (i = 0; i < 10; ++i)
383 if (b)
384 bar ();
385 }
386 else baz ();
387
388 if (a)
389 #pragma omp target
390 #pragma omp teams distribute parallel for collapse(2)
391 for (i = 0; i < 10; i++)
392 {
393 for (j = 0; j < 10; j++)
394 if (b)
395 bar ();
396 else
397 baz ();
398 }
399
400 if (a)
401 for (i = 0; i < 10; i++)
402 #pragma omp target
403 #pragma omp teams distribute parallel for simd
404 for (j = 0; j < 10; j++)
405 {
406 if (b)
407 bar ();
408 }
409 else
410 baz ();
411
412 if (a)
413 #pragma omp target
414 #pragma omp teams
415 {
416 if (b)
417 bar ();
418 }
419 else
420 baz ();
421
422 if (a)
423 #pragma omp target
424 #pragma omp teams
425 #pragma omp parallel
426 {
427 if (b)
428 bar ();
429 else
430 baz ();
431 }
432 }
433
434 void
435 f4 (void)
436 {
437 if (a) /* { dg-warning "ambiguous" } */
438 #pragma omp target data map (tofrom: b)
439 if (b)
440 bar ();
441 else
442 baz ();
443
444 if (a)
445 #pragma omp target data map (tofrom: b)
446 {
447 if (b)
448 bar ();
449 else
450 baz ();
451 }
452 }