1 | // RUN: %clang_cc1 -fsyntax-only -fopenmp -verify %s |
2 | |
3 | // RUN: %clang_cc1 -fsyntax-only -fopenmp-simd -verify %s |
4 | |
5 | // expected-error@+1 {{unexpected OpenMP directive '#pragma omp target parallel for simd'}} |
6 | #pragma omp target parallel for simd |
7 | |
8 | // expected-error@+1 {{unexpected OpenMP directive '#pragma omp target parallel for simd'}} |
9 | #pragma omp target parallel for simd foo |
10 | |
11 | void test_no_clause() { |
12 | int i; |
13 | #pragma omp target parallel for simd |
14 | for (i = 0; i < 16; ++i) |
15 | ; |
16 | |
17 | // expected-error@+2 {{statement after '#pragma omp target parallel for simd' must be a for loop}} |
18 | #pragma omp target parallel for simd |
19 | ++i; |
20 | } |
21 | |
22 | void test_branch_protected_scope() { |
23 | int i = 0; |
24 | L1: |
25 | ++i; |
26 | |
27 | int x[24]; |
28 | |
29 | #pragma omp target parallel for simd |
30 | for (i = 0; i < 16; ++i) { |
31 | if (i == 5) |
32 | goto L1; // expected-error {{use of undeclared label 'L1'}} |
33 | else if (i == 6) |
34 | return; // expected-error {{cannot return from OpenMP region}} |
35 | else if (i == 7) |
36 | goto L2; |
37 | else if (i == 8) { |
38 | L2: |
39 | x[i]++; |
40 | } |
41 | } |
42 | |
43 | if (x[0] == 0) |
44 | goto L2; // expected-error {{use of undeclared label 'L2'}} |
45 | else if (x[1] == 1) |
46 | goto L1; |
47 | } |
48 | |
49 | void test_invalid_clause() { |
50 | int i; |
51 | // expected-warning@+1 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
52 | #pragma omp target parallel for simd foo bar |
53 | for (i = 0; i < 16; ++i) |
54 | ; |
55 | } |
56 | |
57 | void test_non_identifiers() { |
58 | int i, x; |
59 | |
60 | // expected-warning@+1 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
61 | #pragma omp target parallel for simd; |
62 | for (i = 0; i < 16; ++i) |
63 | ; |
64 | |
65 | // expected-warning@+1 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
66 | #pragma omp target parallel for simd private(x); |
67 | for (i = 0; i < 16; ++i) |
68 | ; |
69 | |
70 | // expected-warning@+1 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
71 | #pragma omp target parallel for simd, private(x); |
72 | for (i = 0; i < 16; ++i) |
73 | ; |
74 | } |
75 | |
76 | extern int foo(); |
77 | |
78 | void test_collapse() { |
79 | int i; |
80 | // expected-error@+1 {{expected '('}} |
81 | #pragma omp target parallel for simd collapse |
82 | for (i = 0; i < 16; ++i) |
83 | ; |
84 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
85 | #pragma omp target parallel for simd collapse( |
86 | for (i = 0; i < 16; ++i) |
87 | ; |
88 | // expected-error@+1 {{expected expression}} |
89 | #pragma omp target parallel for simd collapse() |
90 | for (i = 0; i < 16; ++i) |
91 | ; |
92 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
93 | #pragma omp target parallel for simd collapse(, |
94 | for (i = 0; i < 16; ++i) |
95 | ; |
96 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
97 | #pragma omp target parallel for simd collapse(, ) |
98 | for (i = 0; i < 16; ++i) |
99 | ; |
100 | // expected-warning@+2 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
101 | // expected-error@+1 {{expected '('}} |
102 | #pragma omp target parallel for simd collapse 4) |
103 | for (i = 0; i < 16; ++i) |
104 | ; |
105 | // expected-error@+2 {{expected ')'}} |
106 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
107 | #pragma omp target parallel for simd collapse(4 |
108 | for (i = 0; i < 16; ++i) |
109 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
110 | // expected-error@+2 {{expected ')'}} |
111 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
112 | #pragma omp target parallel for simd collapse(4, |
113 | for (i = 0; i < 16; ++i) |
114 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
115 | // expected-error@+2 {{expected ')'}} |
116 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
117 | #pragma omp target parallel for simd collapse(4, ) |
118 | for (i = 0; i < 16; ++i) |
119 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
120 | // expected-note@+1 {{as specified in 'collapse' clause}} |
121 | #pragma omp target parallel for simd collapse(4) |
122 | for (i = 0; i < 16; ++i) |
123 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
124 | // expected-error@+2 {{expected ')'}} |
125 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
126 | #pragma omp target parallel for simd collapse(4 4) |
127 | for (i = 0; i < 16; ++i) |
128 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
129 | // expected-error@+2 {{expected ')'}} |
130 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
131 | #pragma omp target parallel for simd collapse(4, , 4) |
132 | for (i = 0; i < 16; ++i) |
133 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
134 | #pragma omp target parallel for simd collapse(4) |
135 | for (int i1 = 0; i1 < 16; ++i1) |
136 | for (int i2 = 0; i2 < 16; ++i2) |
137 | for (int i3 = 0; i3 < 16; ++i3) |
138 | for (int i4 = 0; i4 < 16; ++i4) |
139 | foo(); |
140 | // expected-error@+2 {{expected ')'}} |
141 | // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}} |
142 | #pragma omp target parallel for simd collapse(4, 8) |
143 | for (i = 0; i < 16; ++i) |
144 | ; // expected-error {{expected 4 for loops after '#pragma omp target parallel for simd', but found only 1}} |
145 | // expected-error@+1 {{expression is not an integer constant expression}} |
146 | #pragma omp target parallel for simd collapse(2.5) |
147 | for (i = 0; i < 16; ++i) |
148 | ; |
149 | // expected-error@+1 {{expression is not an integer constant expression}} |
150 | #pragma omp target parallel for simd collapse(foo()) |
151 | for (i = 0; i < 16; ++i) |
152 | ; |
153 | // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}} |
154 | #pragma omp target parallel for simd collapse(-5) |
155 | for (i = 0; i < 16; ++i) |
156 | ; |
157 | // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}} |
158 | #pragma omp target parallel for simd collapse(0) |
159 | for (i = 0; i < 16; ++i) |
160 | ; |
161 | // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}} |
162 | #pragma omp target parallel for simd collapse(5 - 5) |
163 | for (i = 0; i < 16; ++i) |
164 | ; |
165 | // expected-note@+1 {{defined as firstprivate}} |
166 | #pragma omp target parallel for simd collapse(2) firstprivate(i) |
167 | for (i = 0; i < 16; ++i) |
168 | // expected-note@+1 {{variable with automatic storage duration is predetermined as private; perhaps you forget to enclose 'omp for' directive into a parallel or another task region?}} |
169 | for (int j = 0; j < 16; ++j) |
170 | // expected-error@+2 2 {{reduction variable must be shared}} |
171 | // expected-error@+1 {{OpenMP constructs may not be nested inside a simd region}} |
172 | #pragma omp for reduction(+ : i, j) |
173 | for (int k = 0; k < 16; ++k) |
174 | i += j; |
175 | } |
176 | |
177 | void test_private() { |
178 | int i; |
179 | // expected-error@+2 {{expected expression}} |
180 | // expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
181 | #pragma omp target parallel for simd private( |
182 | for (i = 0; i < 16; ++i) |
183 | ; |
184 | // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}} |
185 | // expected-error@+1 2 {{expected expression}} |
186 | #pragma omp target parallel for simd private(, |
187 | for (i = 0; i < 16; ++i) |
188 | ; |
189 | // expected-error@+1 2 {{expected expression}} |
190 | #pragma omp target parallel for simd private(, ) |
191 | for (i = 0; i < 16; ++i) |
192 | ; |
193 | // expected-error@+1 {{expected expression}} |
194 | #pragma omp target parallel for simd private() |
195 | for (i = 0; i < 16; ++i) |
196 | ; |
197 | // expected-error@+1 {{expected expression}} |
198 | #pragma omp target parallel for simd private(int) |
199 | for (i = 0; i < 16; ++i) |
200 | ; |
201 | // expected-error@+1 {{expected variable name}} |
202 | #pragma omp target parallel for simd private(0) |
203 | for (i = 0; i < 16; ++i) |
204 | ; |
205 | |
206 | int x, y, z; |
207 | #pragma omp target parallel for simd private(x) |
208 | for (i = 0; i < 16; ++i) |
209 | ; |
210 | #pragma omp target parallel for simd private(x, y) |
211 | for (i = 0; i < 16; ++i) |
212 | ; |
213 | #pragma omp target parallel for simd private(x, y, z) |
214 | for (i = 0; i < 16; ++i) { |
215 | x = y * i + z; |
216 | } |
217 | } |
218 | |
219 | void test_lastprivate() { |
220 | int i; |
221 | // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}} |
222 | // expected-error@+1 {{expected expression}} |
223 | #pragma omp target parallel for simd lastprivate( |
224 | for (i = 0; i < 16; ++i) |
225 | ; |
226 | |
227 | // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}} |
228 | // expected-error@+1 2 {{expected expression}} |
229 | #pragma omp target parallel for simd lastprivate(, |
230 | for (i = 0; i < 16; ++i) |
231 | ; |
232 | // expected-error@+1 2 {{expected expression}} |
233 | #pragma omp target parallel for simd lastprivate(, ) |
234 | for (i = 0; i < 16; ++i) |
235 | ; |
236 | // expected-error@+1 {{expected expression}} |
237 | #pragma omp target parallel for simd lastprivate() |
238 | for (i = 0; i < 16; ++i) |
239 | ; |
240 | // expected-error@+1 {{expected expression}} |
241 | #pragma omp target parallel for simd lastprivate(int) |
242 | for (i = 0; i < 16; ++i) |
243 | ; |
244 | // expected-error@+1 {{expected variable name}} |
245 | #pragma omp target parallel for simd lastprivate(0) |
246 | for (i = 0; i < 16; ++i) |
247 | ; |
248 | |
249 | int x, y, z; |
250 | #pragma omp target parallel for simd lastprivate(x) |
251 | for (i = 0; i < 16; ++i) |
252 | ; |
253 | #pragma omp target parallel for simd lastprivate(x, y) |
254 | for (i = 0; i < 16; ++i) |
255 | ; |
256 | #pragma omp target parallel for simd lastprivate(x, y, z) |
257 | for (i = 0; i < 16; ++i) |
258 | ; |
259 | } |
260 | |
261 | void test_firstprivate() { |
262 | int i; |
263 | // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}} |
264 | // expected-error@+1 {{expected expression}} |
265 | #pragma omp target parallel for simd firstprivate( |
266 | for (i = 0; i < 16; ++i) |
267 | ; |
268 | |
269 | // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}} |
270 | // expected-error@+1 2 {{expected expression}} |
271 | #pragma omp target parallel for simd firstprivate(, |
272 | for (i = 0; i < 16; ++i) |
273 | ; |
274 | // expected-error@+1 2 {{expected expression}} |
275 | #pragma omp target parallel for simd firstprivate(, ) |
276 | for (i = 0; i < 16; ++i) |
277 | ; |
278 | // expected-error@+1 {{expected expression}} |
279 | #pragma omp target parallel for simd firstprivate() |
280 | for (i = 0; i < 16; ++i) |
281 | ; |
282 | // expected-error@+1 {{expected expression}} |
283 | #pragma omp target parallel for simd firstprivate(int) |
284 | for (i = 0; i < 16; ++i) |
285 | ; |
286 | // expected-error@+1 {{expected variable name}} |
287 | #pragma omp target parallel for simd firstprivate(0) |
288 | for (i = 0; i < 16; ++i) |
289 | ; |
290 | |
291 | int x, y, z; |
292 | #pragma omp target parallel for simd lastprivate(x) firstprivate(x) |
293 | for (i = 0; i < 16; ++i) |
294 | ; |
295 | #pragma omp target parallel for simd lastprivate(x, y) firstprivate(x, y) |
296 | for (i = 0; i < 16; ++i) |
297 | ; |
298 | #pragma omp target parallel for simd lastprivate(x, y, z) firstprivate(x, y, z) |
299 | for (i = 0; i < 16; ++i) |
300 | ; |
301 | } |
302 | |
303 | void test_loop_messages() { |
304 | float a[100], b[100], c[100]; |
305 | // expected-error@+2 {{variable must be of integer or pointer type}} |
306 | #pragma omp target parallel for simd |
307 | for (float fi = 0; fi < 10.0; fi++) { |
308 | c[(int)fi] = a[(int)fi] + b[(int)fi]; |
309 | } |
310 | // expected-error@+2 {{variable must be of integer or pointer type}} |
311 | #pragma omp target parallel for simd |
312 | for (double fi = 0; fi < 10.0; fi++) { |
313 | c[(int)fi] = a[(int)fi] + b[(int)fi]; |
314 | } |
315 | } |
316 | |
317 | void test_safelen() { |
318 | int i; |
319 | // expected-error@+1 {{expected '('}} |
320 | #pragma omp target parallel for simd safelen |
321 | for (i = 0; i < 16; ++i) |
322 | ; |
323 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
324 | #pragma omp target parallel for simd safelen( |
325 | for (i = 0; i < 16; ++i) |
326 | ; |
327 | // expected-error@+1 {{expected expression}} |
328 | #pragma omp target parallel for simd safelen() |
329 | for (i = 0; i < 16; ++i) |
330 | ; |
331 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
332 | #pragma omp target parallel for simd safelen(, |
333 | for (i = 0; i < 16; ++i) |
334 | ; |
335 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
336 | #pragma omp target parallel for simd safelen(, ) |
337 | for (i = 0; i < 16; ++i) |
338 | ; |
339 | // expected-warning@+2 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
340 | // expected-error@+1 {{expected '('}} |
341 | #pragma omp target parallel for simd safelen 4) |
342 | for (i = 0; i < 16; ++i) |
343 | ; |
344 | // expected-error@+2 {{expected ')'}} |
345 | // expected-note@+1 {{to match this '('}} |
346 | #pragma omp target parallel for simd safelen(4 |
347 | for (i = 0; i < 16; ++i) |
348 | ; |
349 | // expected-error@+2 {{expected ')'}} |
350 | // expected-note@+1 {{to match this '('}} |
351 | #pragma omp target parallel for simd safelen(4, |
352 | for (i = 0; i < 16; ++i) |
353 | ; |
354 | // expected-error@+2 {{expected ')'}} |
355 | // expected-note@+1 {{to match this '('}} |
356 | #pragma omp target parallel for simd safelen(4, ) |
357 | for (i = 0; i < 16; ++i) |
358 | ; |
359 | #pragma omp target parallel for simd safelen(4) |
360 | for (i = 0; i < 16; ++i) |
361 | ; |
362 | // expected-error@+2 {{expected ')'}} |
363 | // expected-note@+1 {{to match this '('}} |
364 | #pragma omp target parallel for simd safelen(4 4) |
365 | for (i = 0; i < 16; ++i) |
366 | ; |
367 | // expected-error@+2 {{expected ')'}} |
368 | // expected-note@+1 {{to match this '('}} |
369 | #pragma omp target parallel for simd safelen(4, , 4) |
370 | for (i = 0; i < 16; ++i) |
371 | ; |
372 | #pragma omp target parallel for simd safelen(4) |
373 | for (i = 0; i < 16; ++i) |
374 | ; |
375 | // expected-error@+2 {{expected ')'}} |
376 | // expected-note@+1 {{to match this '('}} |
377 | #pragma omp target parallel for simd safelen(4, 8) |
378 | for (i = 0; i < 16; ++i) |
379 | ; |
380 | // expected-error@+1 {{expression is not an integer constant expression}} |
381 | #pragma omp target parallel for simd safelen(2.5) |
382 | for (i = 0; i < 16; ++i) |
383 | ; |
384 | // expected-error@+1 {{expression is not an integer constant expression}} |
385 | #pragma omp target parallel for simd safelen(foo()) |
386 | for (i = 0; i < 16; ++i) |
387 | ; |
388 | // expected-error@+1 {{argument to 'safelen' clause must be a strictly positive integer value}} |
389 | #pragma omp target parallel for simd safelen(-5) |
390 | for (i = 0; i < 16; ++i) |
391 | ; |
392 | // expected-error@+1 {{argument to 'safelen' clause must be a strictly positive integer value}} |
393 | #pragma omp target parallel for simd safelen(0) |
394 | for (i = 0; i < 16; ++i) |
395 | ; |
396 | // expected-error@+1 {{argument to 'safelen' clause must be a strictly positive integer value}} |
397 | #pragma omp target parallel for simd safelen(5 - 5) |
398 | for (i = 0; i < 16; ++i) |
399 | ; |
400 | } |
401 | |
402 | void test_simdlen() { |
403 | int i; |
404 | // expected-error@+1 {{expected '('}} |
405 | #pragma omp target parallel for simd simdlen |
406 | for (i = 0; i < 16; ++i) |
407 | ; |
408 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
409 | #pragma omp target parallel for simd simdlen( |
410 | for (i = 0; i < 16; ++i) |
411 | ; |
412 | // expected-error@+1 {{expected expression}} |
413 | #pragma omp target parallel for simd simdlen() |
414 | for (i = 0; i < 16; ++i) |
415 | ; |
416 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
417 | #pragma omp target parallel for simd simdlen(, |
418 | for (i = 0; i < 16; ++i) |
419 | ; |
420 | // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}} |
421 | #pragma omp target parallel for simd simdlen(, ) |
422 | for (i = 0; i < 16; ++i) |
423 | ; |
424 | // expected-warning@+2 {{extra tokens at the end of '#pragma omp target parallel for simd' are ignored}} |
425 | // expected-error@+1 {{expected '('}} |
426 | #pragma omp target parallel for simd simdlen 4) |
427 | for (i = 0; i < 16; ++i) |
428 | ; |
429 | // expected-error@+2 {{expected ')'}} |
430 | // expected-note@+1 {{to match this '('}} |
431 | #pragma omp target parallel for simd simdlen(4 |
432 | for (i = 0; i < 16; ++i) |
433 | ; |
434 | // expected-error@+2 {{expected ')'}} |
435 | // expected-note@+1 {{to match this '('}} |
436 | #pragma omp target parallel for simd simdlen(4, |
437 | for (i = 0; i < 16; ++i) |
438 | ; |
439 | // expected-error@+2 {{expected ')'}} |
440 | // expected-note@+1 {{to match this '('}} |
441 | #pragma omp target parallel for simd simdlen(4, ) |
442 | for (i = 0; i < 16; ++i) |
443 | ; |
444 | #pragma omp target parallel for simd simdlen(4) |
445 | for (i = 0; i < 16; ++i) |
446 | ; |
447 | // expected-error@+2 {{expected ')'}} |
448 | // expected-note@+1 {{to match this '('}} |
449 | #pragma omp target parallel for simd simdlen(4 4) |
450 | for (i = 0; i < 16; ++i) |
451 | ; |
452 | // expected-error@+2 {{expected ')'}} |
453 | // expected-note@+1 {{to match this '('}} |
454 | #pragma omp target parallel for simd simdlen(4, , 4) |
455 | for (i = 0; i < 16; ++i) |
456 | ; |
457 | #pragma omp target parallel for simd simdlen(4) |
458 | for (i = 0; i < 16; ++i) |
459 | ; |
460 | // expected-error@+2 {{expected ')'}} |
461 | // expected-note@+1 {{to match this '('}} |
462 | #pragma omp target parallel for simd simdlen(4, 8) |
463 | for (i = 0; i < 16; ++i) |
464 | ; |
465 | // expected-error@+1 {{expression is not an integer constant expression}} |
466 | #pragma omp target parallel for simd simdlen(2.5) |
467 | for (i = 0; i < 16; ++i) |
468 | ; |
469 | // expected-error@+1 {{expression is not an integer constant expression}} |
470 | #pragma omp target parallel for simd simdlen(foo()) |
471 | for (i = 0; i < 16; ++i) |
472 | ; |
473 | // expected-error@+1 {{argument to 'simdlen' clause must be a strictly positive integer value}} |
474 | #pragma omp target parallel for simd simdlen(-5) |
475 | for (i = 0; i < 16; ++i) |
476 | ; |
477 | // expected-error@+1 {{argument to 'simdlen' clause must be a strictly positive integer value}} |
478 | #pragma omp target parallel for simd simdlen(0) |
479 | for (i = 0; i < 16; ++i) |
480 | ; |
481 | // expected-error@+1 {{argument to 'simdlen' clause must be a strictly positive integer value}} |
482 | #pragma omp target parallel for simd simdlen(5 - 5) |
483 | for (i = 0; i < 16; ++i) |
484 | ; |
485 | } |
486 | |
487 | void test_safelen_simdlen() { |
488 | int i; |
489 | // expected-error@+1 {{the value of 'simdlen' parameter must be less than or equal to the value of the 'safelen' parameter}} |
490 | #pragma omp target parallel for simd simdlen(6) safelen(5) |
491 | for (i = 0; i < 16; ++i) |
492 | ; |
493 | // expected-error@+1 {{the value of 'simdlen' parameter must be less than or equal to the value of the 'safelen' parameter}} |
494 | #pragma omp target parallel for simd safelen(5) simdlen(6) |
495 | for (i = 0; i < 16; ++i) |
496 | ; |
497 | } |
498 | |