1 // RUN: %clang_cc1 -fsyntax-only -fopenmp -triple x86_64-unknown-unknown -verify %s
2
3 // expected-error@+1 {{unexpected OpenMP directive '#pragma omp taskloop simd'}}
4 #pragma omp taskloop simd
5
6 // expected-error@+1 {{unexpected OpenMP directive '#pragma omp taskloop simd'}}
7 #pragma omp taskloop simd foo
8
test_no_clause()9 void test_no_clause() {
10 int i;
11 #pragma omp taskloop simd
12 for (i = 0; i < 16; ++i)
13 ;
14
15 // expected-error@+2 {{statement after '#pragma omp taskloop simd' must be a for loop}}
16 #pragma omp taskloop simd
17 ++i;
18 }
19
test_branch_protected_scope()20 void test_branch_protected_scope() {
21 int i = 0;
22 L1:
23 ++i;
24
25 int x[24];
26
27 #pragma omp parallel
28 #pragma omp taskloop simd
29 for (i = 0; i < 16; ++i) {
30 if (i == 5)
31 goto L1; // expected-error {{use of undeclared label 'L1'}}
32 else if (i == 6)
33 return; // expected-error {{cannot return from OpenMP region}}
34 else if (i == 7)
35 goto L2;
36 else if (i == 8) {
37 L2:
38 x[i]++;
39 }
40 }
41
42 if (x[0] == 0)
43 goto L2; // expected-error {{use of undeclared label 'L2'}}
44 else if (x[1] == 1)
45 goto L1;
46 }
47
test_invalid_clause()48 void test_invalid_clause() {
49 int i;
50 #pragma omp parallel
51 // expected-warning@+1 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
52 #pragma omp taskloop simd foo bar
53 for (i = 0; i < 16; ++i)
54 ;
55 // expected-error@+1 {{directive '#pragma omp taskloop simd' cannot contain more than one 'nogroup' clause}}
56 #pragma omp taskloop simd nogroup nogroup
57 for (i = 0; i < 16; ++i)
58 ;
59 }
60
test_non_identifiers()61 void test_non_identifiers() {
62 int i, x;
63
64 #pragma omp parallel
65 // expected-warning@+1 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
66 #pragma omp taskloop simd;
67 for (i = 0; i < 16; ++i)
68 ;
69 // expected-warning@+2 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
70 #pragma omp parallel
71 #pragma omp taskloop simd linear(x);
72 for (i = 0; i < 16; ++i)
73 ;
74
75 #pragma omp parallel
76 // expected-warning@+1 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
77 #pragma omp taskloop simd private(x);
78 for (i = 0; i < 16; ++i)
79 ;
80
81 #pragma omp parallel
82 // expected-warning@+1 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
83 #pragma omp taskloop simd, private(x);
84 for (i = 0; i < 16; ++i)
85 ;
86 }
87
88 extern int foo();
89
test_collapse()90 void test_collapse() {
91 int i;
92 #pragma omp parallel
93 // expected-error@+1 {{expected '('}}
94 #pragma omp taskloop simd collapse
95 for (i = 0; i < 16; ++i)
96 ;
97 #pragma omp parallel
98 // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
99 #pragma omp taskloop simd collapse(
100 for (i = 0; i < 16; ++i)
101 ;
102 #pragma omp parallel
103 // expected-error@+1 {{expected expression}}
104 #pragma omp taskloop simd collapse()
105 for (i = 0; i < 16; ++i)
106 ;
107 #pragma omp parallel
108 // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
109 #pragma omp taskloop simd collapse(,
110 for (i = 0; i < 16; ++i)
111 ;
112 #pragma omp parallel
113 // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
114 #pragma omp taskloop simd collapse(, )
115 for (i = 0; i < 16; ++i)
116 ;
117 #pragma omp parallel
118 // expected-warning@+2 {{extra tokens at the end of '#pragma omp taskloop simd' are ignored}}
119 // expected-error@+1 {{expected '('}}
120 #pragma omp taskloop simd collapse 4)
121 for (i = 0; i < 16; ++i)
122 ;
123 #pragma omp parallel
124 // expected-error@+2 {{expected ')'}}
125 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
126 #pragma omp taskloop simd collapse(4
127 for (i = 0; i < 16; ++i)
128 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
129 #pragma omp parallel
130 // expected-error@+2 {{expected ')'}}
131 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
132 #pragma omp taskloop simd collapse(4,
133 for (i = 0; i < 16; ++i)
134 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
135 #pragma omp parallel
136 // expected-error@+2 {{expected ')'}}
137 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
138 #pragma omp taskloop simd collapse(4, )
139 for (i = 0; i < 16; ++i)
140 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
141 #pragma omp parallel
142 // expected-note@+1 {{as specified in 'collapse' clause}}
143 #pragma omp taskloop simd collapse(4)
144 for (i = 0; i < 16; ++i)
145 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
146 #pragma omp parallel
147 // expected-error@+2 {{expected ')'}}
148 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
149 #pragma omp taskloop simd collapse(4 4)
150 for (i = 0; i < 16; ++i)
151 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
152 #pragma omp parallel
153 // expected-error@+2 {{expected ')'}}
154 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
155 #pragma omp taskloop simd collapse(4, , 4)
156 for (i = 0; i < 16; ++i)
157 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
158 #pragma omp parallel
159 #pragma omp taskloop simd collapse(4)
160 for (int i1 = 0; i1 < 16; ++i1)
161 for (int i2 = 0; i2 < 16; ++i2)
162 for (int i3 = 0; i3 < 16; ++i3)
163 for (int i4 = 0; i4 < 16; ++i4)
164 foo();
165 #pragma omp parallel
166 // expected-error@+2 {{expected ')'}}
167 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
168 #pragma omp taskloop simd collapse(4, 8)
169 for (i = 0; i < 16; ++i)
170 ; // expected-error {{expected 4 for loops after '#pragma omp taskloop simd', but found only 1}}
171 #pragma omp parallel
172 // expected-error@+1 {{expression is not an integer constant expression}}
173 #pragma omp taskloop simd collapse(2.5)
174 for (i = 0; i < 16; ++i)
175 ;
176 #pragma omp parallel
177 // expected-error@+1 {{expression is not an integer constant expression}}
178 #pragma omp taskloop simd collapse(foo())
179 for (i = 0; i < 16; ++i)
180 ;
181 #pragma omp parallel
182 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
183 #pragma omp taskloop simd collapse(-5)
184 for (i = 0; i < 16; ++i)
185 ;
186 #pragma omp parallel
187 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
188 #pragma omp taskloop simd collapse(0)
189 for (i = 0; i < 16; ++i)
190 ;
191 #pragma omp parallel
192 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
193 #pragma omp taskloop simd collapse(5 - 5)
194 for (i = 0; i < 16; ++i)
195 ;
196 }
197
test_private()198 void test_private() {
199 int i;
200 #pragma omp parallel
201 // expected-error@+2 {{expected expression}}
202 // expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
203 #pragma omp taskloop simd private(
204 for (i = 0; i < 16; ++i)
205 ;
206 #pragma omp parallel
207 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
208 // expected-error@+1 2 {{expected expression}}
209 #pragma omp taskloop simd private(,
210 for (i = 0; i < 16; ++i)
211 ;
212 #pragma omp parallel
213 // expected-error@+1 2 {{expected expression}}
214 #pragma omp taskloop simd private(, )
215 for (i = 0; i < 16; ++i)
216 ;
217 #pragma omp parallel
218 // expected-error@+1 {{expected expression}}
219 #pragma omp taskloop simd private()
220 for (i = 0; i < 16; ++i)
221 ;
222 #pragma omp parallel
223 // expected-error@+1 {{expected expression}}
224 #pragma omp taskloop simd private(int)
225 for (i = 0; i < 16; ++i)
226 ;
227 #pragma omp parallel
228 // expected-error@+1 {{expected variable name}}
229 #pragma omp taskloop simd private(0)
230 for (i = 0; i < 16; ++i)
231 ;
232
233 int x, y, z;
234 #pragma omp parallel
235 #pragma omp taskloop simd private(x)
236 for (i = 0; i < 16; ++i)
237 ;
238 #pragma omp parallel
239 #pragma omp taskloop simd private(x, y)
240 for (i = 0; i < 16; ++i)
241 ;
242 #pragma omp parallel
243 #pragma omp taskloop simd private(x, y, z)
244 for (i = 0; i < 16; ++i) {
245 x = y * i + z;
246 }
247 }
248
test_lastprivate()249 void test_lastprivate() {
250 int i;
251 #pragma omp parallel
252 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
253 // expected-error@+1 {{expected expression}}
254 #pragma omp taskloop simd lastprivate(
255 for (i = 0; i < 16; ++i)
256 ;
257
258 #pragma omp parallel
259 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
260 // expected-error@+1 2 {{expected expression}}
261 #pragma omp taskloop simd lastprivate(,
262 for (i = 0; i < 16; ++i)
263 ;
264 #pragma omp parallel
265 // expected-error@+1 2 {{expected expression}}
266 #pragma omp taskloop simd lastprivate(, )
267 for (i = 0; i < 16; ++i)
268 ;
269 #pragma omp parallel
270 // expected-error@+1 {{expected expression}}
271 #pragma omp taskloop simd lastprivate()
272 for (i = 0; i < 16; ++i)
273 ;
274 #pragma omp parallel
275 // expected-error@+1 {{expected expression}}
276 #pragma omp taskloop simd lastprivate(int)
277 for (i = 0; i < 16; ++i)
278 ;
279 #pragma omp parallel
280 // expected-error@+1 {{expected variable name}}
281 #pragma omp taskloop simd lastprivate(0)
282 for (i = 0; i < 16; ++i)
283 ;
284
285 int x, y, z;
286 #pragma omp parallel
287 #pragma omp taskloop simd lastprivate(x)
288 for (i = 0; i < 16; ++i)
289 ;
290 #pragma omp parallel
291 #pragma omp taskloop simd lastprivate(x, y)
292 for (i = 0; i < 16; ++i)
293 ;
294 #pragma omp parallel
295 #pragma omp taskloop simd lastprivate(x, y, z)
296 for (i = 0; i < 16; ++i)
297 ;
298 }
299
test_firstprivate()300 void test_firstprivate() {
301 int i;
302 #pragma omp parallel
303 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
304 // expected-error@+1 {{expected expression}}
305 #pragma omp taskloop simd firstprivate(
306 for (i = 0; i < 16; ++i)
307 ;
308
309 #pragma omp parallel
310 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
311 // expected-error@+1 2 {{expected expression}}
312 #pragma omp taskloop simd firstprivate(,
313 for (i = 0; i < 16; ++i)
314 ;
315 #pragma omp parallel
316 // expected-error@+1 2 {{expected expression}}
317 #pragma omp taskloop simd firstprivate(, )
318 for (i = 0; i < 16; ++i)
319 ;
320 #pragma omp parallel
321 // expected-error@+1 {{expected expression}}
322 #pragma omp taskloop simd firstprivate()
323 for (i = 0; i < 16; ++i)
324 ;
325 #pragma omp parallel
326 // expected-error@+1 {{expected expression}}
327 #pragma omp taskloop simd firstprivate(int)
328 for (i = 0; i < 16; ++i)
329 ;
330 #pragma omp parallel
331 // expected-error@+1 {{expected variable name}}
332 #pragma omp taskloop simd firstprivate(0)
333 for (i = 0; i < 16; ++i)
334 ;
335
336 int x, y, z;
337 #pragma omp parallel
338 #pragma omp taskloop simd lastprivate(x) firstprivate(x)
339 for (i = 0; i < 16; ++i)
340 ;
341 #pragma omp parallel
342 #pragma omp taskloop simd lastprivate(x, y) firstprivate(x, y)
343 for (i = 0; i < 16; ++i)
344 ;
345 #pragma omp parallel
346 #pragma omp taskloop simd lastprivate(x, y, z) firstprivate(x, y, z)
347 for (i = 0; i < 16; ++i)
348 ;
349 }
350
test_loop_messages()351 void test_loop_messages() {
352 float a[100], b[100], c[100];
353 #pragma omp parallel
354 // expected-error@+2 {{variable must be of integer or pointer type}}
355 #pragma omp taskloop simd
356 for (float fi = 0; fi < 10.0; fi++) {
357 c[(int)fi] = a[(int)fi] + b[(int)fi];
358 }
359 #pragma omp parallel
360 // expected-error@+2 {{variable must be of integer or pointer type}}
361 #pragma omp taskloop simd
362 for (double fi = 0; fi < 10.0; fi++) {
363 c[(int)fi] = a[(int)fi] + b[(int)fi];
364 }
365
366 // expected-warning@+2 {{OpenMP loop iteration variable cannot have more than 64 bits size and will be narrowed}}
367 #pragma omp taskloop simd
368 for (__int128 ii = 0; ii < 10; ii++) {
369 c[ii] = a[ii] + b[ii];
370 }
371 }
372
373