1 // RUN: %clang_cc1 -fsyntax-only -fopenmp -fopenmp-version=45 -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp45 %s -Wno-openmp-mapping -Wuninitialized
2 // RUN: %clang_cc1 -fsyntax-only -fopenmp -fopenmp-version=50 -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp5,omp50 %s -Wno-openmp-mapping -Wuninitialized
3 // RUN: %clang_cc1 -fsyntax-only -fopenmp -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp5,omp51 %s -Wno-openmp-mapping -Wuninitialized
4
5 // RUN: %clang_cc1 -fsyntax-only -fopenmp-simd -fopenmp-version=45 -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp45 %s -Wno-openmp-mapping -Wuninitialized
6 // RUN: %clang_cc1 -fsyntax-only -fopenmp-simd -fopenmp-version=50 -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp5,omp50 %s -Wno-openmp-mapping -Wuninitialized
7 // RUN: %clang_cc1 -fsyntax-only -fopenmp-simd -x c++ -std=c++11 -fexceptions -fcxx-exceptions -verify=expected,omp5,omp51 %s -Wno-openmp-mapping -Wuninitialized
8
9 class S {
10 int a;
S()11 S() : a(0) {} // expected-note {{implicitly declared private here}}
12
13 public:
S(int v)14 S(int v) : a(v) {}
S(const S & s)15 S(const S &s) : a(s.a) {}
16 };
17
18 static int sii;
19 // expected-note@+1 {{defined as threadprivate or thread local}}
20 #pragma omp threadprivate(sii)
21 static int globalii;
22
test_iteration_spaces()23 int test_iteration_spaces() {
24 const int N = 100;
25 float a[N], b[N], c[N];
26 int ii, jj, kk;
27 float fii;
28 double dii;
29 #pragma omp target teams distribute parallel for simd
30 for (int i = 0; i < 10; i += 1) {
31 c[i] = a[i] + b[i];
32 }
33 #pragma omp target teams distribute parallel for simd
34 for (char i = 0; i < 10; i++) {
35 c[i] = a[i] + b[i];
36 }
37 #pragma omp target teams distribute parallel for simd
38 for (char i = 0; i < 10; i += '\1') {
39 c[i] = a[i] + b[i];
40 }
41 #pragma omp target teams distribute parallel for simd
42 for (long long i = 0; i < 10; i++) {
43 c[i] = a[i] + b[i];
44 }
45 #pragma omp target teams distribute parallel for simd
46 // expected-error@+1 {{expression must have integral or unscoped enumeration type, not 'double'}}
47 for (long long i = 0; i < 10; i += 1.5) {
48 c[i] = a[i] + b[i];
49 }
50 #pragma omp target teams distribute parallel for simd
51 for (long long i = 0; i < 'z'; i += 1u) {
52 c[i] = a[i] + b[i];
53 }
54 #pragma omp target teams distribute parallel for simd
55 // expected-error@+1 {{variable must be of integer or random access iterator type}}
56 for (float fi = 0; fi < 10.0; fi++) {
57 c[(int)fi] = a[(int)fi] + b[(int)fi];
58 }
59 #pragma omp target teams distribute parallel for simd
60 // expected-error@+1 {{variable must be of integer or random access iterator type}}
61 for (double fi = 0; fi < 10.0; fi++) {
62 c[(int)fi] = a[(int)fi] + b[(int)fi];
63 }
64 #pragma omp target teams distribute parallel for simd
65 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
66 for (int &ref = ii; ref < 10; ref++) {
67 }
68 #pragma omp target teams distribute parallel for simd
69 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
70 for (int i; i < 10; i++)
71 c[i] = a[i];
72
73 #pragma omp target teams distribute parallel for simd
74 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
75 for (int i = 0, j = 0; i < 10; ++i)
76 c[i] = a[i];
77
78 #pragma omp target teams distribute parallel for simd
79 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
80 for (; ii < 10; ++ii)
81 c[ii] = a[ii];
82
83 #pragma omp target teams distribute parallel for simd
84 // expected-warning@+2 {{expression result unused}}
85 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
86 for (ii + 1; ii < 10; ++ii)
87 c[ii] = a[ii];
88
89 #pragma omp target teams distribute parallel for simd
90 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
91 for (c[ii] = 0; ii < 10; ++ii)
92 c[ii] = a[ii];
93
94 #pragma omp target teams distribute parallel for simd
95 // Ok to skip parenthesises.
96 for (((ii)) = 0; ii < 10; ++ii)
97 c[ii] = a[ii];
98
99 #pragma omp target teams distribute parallel for simd
100 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'i'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'i'}}
101 for (int i = 0; i; i++)
102 c[i] = a[i];
103
104 #pragma omp target teams distribute parallel for simd
105 // omp45-error@+2 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'i'}} omp5-error@+2 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'i'}}
106 // expected-error@+1 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'i'}}
107 for (int i = 0; jj < kk; ii++)
108 c[i] = a[i];
109
110 #pragma omp target teams distribute parallel for simd
111 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'i'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'i'}}
112 for (int i = 0; !!i; i++)
113 c[i] = a[i];
114
115 // omp45-error@+2 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'i'}}
116 #pragma omp target teams distribute parallel for simd
117 for (int i = 0; i != 1; i++)
118 c[i] = a[i];
119
120 #pragma omp target teams distribute parallel for simd
121 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'i'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'i'}}
122 for (int i = 0;; i++)
123 c[i] = a[i];
124
125 // Ok.
126 #pragma omp target teams distribute parallel for simd
127 for (int i = 11; i > 10; i--)
128 c[i] = a[i];
129
130 // Ok.
131 #pragma omp target teams distribute parallel for simd
132 for (int i = 0; i < 10; ++i)
133 c[i] = a[i];
134
135 // Ok.
136 #pragma omp target teams distribute parallel for simd
137 for (ii = 0; ii < 10; ++ii)
138 c[ii] = a[ii];
139
140 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
141 #pragma omp target teams distribute parallel for simd
142 for (ii = 0; ii < 10; ++jj)
143 c[ii] = a[jj];
144
145 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
146 #pragma omp target teams distribute parallel for simd
147 for (ii = 0; ii < 10; ++++ii)
148 c[ii] = a[ii];
149
150 // Ok but undefined behavior (in general, cannot check that incr
151 // is really loop-invariant).
152 #pragma omp target teams distribute parallel for simd
153 for (ii = 0; ii < 10; ii = ii + ii)
154 c[ii] = a[ii];
155
156 // expected-error@+2 {{expression must have integral or unscoped enumeration type, not 'float'}}
157 #pragma omp target teams distribute parallel for simd
158 for (ii = 0; ii < 10; ii = ii + 1.0f)
159 c[ii] = a[ii];
160
161 // Ok - step was converted to integer type.
162 #pragma omp target teams distribute parallel for simd
163 for (ii = 0; ii < 10; ii = ii + (int)1.1f)
164 c[ii] = a[ii];
165
166 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
167 #pragma omp target teams distribute parallel for simd
168 for (ii = 0; ii < 10; jj = ii + 2)
169 c[ii] = a[ii];
170
171 // expected-warning@+3 {{relational comparison result unused}}
172 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
173 #pragma omp target teams distribute parallel for simd
174 for (ii = 0; ii<10; jj> kk + 2)
175 c[ii] = a[ii];
176
177 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
178 #pragma omp target teams distribute parallel for simd
179 for (ii = 0; ii < 10;)
180 c[ii] = a[ii];
181
182 // expected-warning@+3 {{expression result unused}}
183 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
184 #pragma omp target teams distribute parallel for simd
185 for (ii = 0; ii < 10; !ii)
186 c[ii] = a[ii];
187
188 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
189 #pragma omp target teams distribute parallel for simd
190 for (ii = 0; ii < 10; ii ? ++ii : ++jj)
191 c[ii] = a[ii];
192
193 // expected-error@+2 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'ii'}}
194 #pragma omp target teams distribute parallel for simd
195 for (ii = 0; ii < 10; ii = ii < 10)
196 c[ii] = a[ii];
197
198 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
199 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
200 #pragma omp target teams distribute parallel for simd
201 for (ii = 0; ii < 10; ii = ii + 0)
202 c[ii] = a[ii];
203
204 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
205 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
206 #pragma omp target teams distribute parallel for simd
207 for (ii = 0; ii < 10; ii = ii + (int)(0.8 - 0.45))
208 c[ii] = a[ii];
209
210 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
211 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
212 #pragma omp target teams distribute parallel for simd
213 for (ii = 0; (ii) < 10; ii -= 25)
214 c[ii] = a[ii];
215
216 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
217 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
218 #pragma omp target teams distribute parallel for simd
219 for (ii = 0; (ii < 10); ii -= 0)
220 c[ii] = a[ii];
221
222 // expected-note@+3 {{loop step is expected to be negative due to this condition}}
223 // expected-error@+2 {{increment expression must cause 'ii' to decrease on each iteration of OpenMP for loop}}
224 #pragma omp target teams distribute parallel for simd
225 for (ii = 0; ii > 10; (ii += 0))
226 c[ii] = a[ii];
227
228 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
229 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
230 #pragma omp target teams distribute parallel for simd
231 for (ii = 0; ii < 10; (ii) = (1 - 1) + (ii))
232 c[ii] = a[ii];
233
234 // expected-note@+3 {{loop step is expected to be negative due to this condition}}
235 // expected-error@+2 {{increment expression must cause 'ii' to decrease on each iteration of OpenMP for loop}}
236 #pragma omp target teams distribute parallel for simd
237 for ((ii = 0); ii > 10; (ii -= 0))
238 c[ii] = a[ii];
239
240 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
241 // expected-error@+2 {{increment expression must cause 'ii' to increase on each iteration of OpenMP for loop}}
242 #pragma omp target teams distribute parallel for simd
243 for (ii = 0; (ii < 10); (ii -= 0))
244 c[ii] = a[ii];
245
246 // expected-error@+3 {{loop iteration variable in the associated loop of 'omp target teams distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
247 // expected-note@+1 {{defined as firstprivate}}
248 #pragma omp target teams distribute parallel for simd firstprivate(ii)
249 for (ii = 0; ii < 10; ii++)
250 c[ii] = a[ii];
251
252 // omp45-error@+2 {{loop iteration variable in the associated loop of 'omp target teams distribute parallel for simd' directive may not be private, predetermined as linear}}
253 #pragma omp target teams distribute parallel for simd private(ii) // omp45-note {{defined as private}}
254 for (ii = 0; ii < 10; ii++)
255 c[ii] = a[ii];
256
257 // omp45-error@+2 {{loop iteration variable in the associated loop of 'omp target teams distribute parallel for simd' directive may not be lastprivate, predetermined as linear}}
258 #pragma omp target teams distribute parallel for simd lastprivate(ii) // omp45-note {{defined as lastprivate}}
259 for (ii = 0; ii < 10; ii++)
260 c[ii] = a[ii];
261
262 // expected-error@+2 {{loop iteration variable in the associated loop of 'omp target teams distribute parallel for simd' directive may not be threadprivate or thread local, predetermined as linear}}
263 #pragma omp target teams distribute parallel for simd
264 for (sii = 0; sii < 10; sii++)
265 c[sii] = a[sii];
266
267 {
268 #pragma omp target teams distribute parallel for simd collapse(2)
269 for (ii = 0; ii < 10; ii += 1)
270 for (globalii = 0; globalii < 10; globalii += 1)
271 c[globalii] += a[globalii] + ii;
272 }
273
274 // omp45-error@+2 {{statement after '#pragma omp target teams distribute parallel for simd' must be a for loop}}
275 #pragma omp target teams distribute parallel for simd
276 for (auto &item : a) {
277 item = item + 1;
278 }
279
280 // expected-note@+3 {{loop step is expected to be positive due to this condition}}
281 // expected-error@+2 {{increment expression must cause 'i' to increase on each iteration of OpenMP for loop}}
282 #pragma omp target teams distribute parallel for simd
283 for (unsigned i = 9; i < 10; i--) {
284 c[i] = a[i] + b[i];
285 }
286
287 int(*lb)[4] = nullptr;
288 #pragma omp target teams distribute parallel for simd
289 for (int(*p)[4] = lb; p < lb + 8; ++p) {
290 }
291
292 // expected-warning@+2 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
293 #pragma omp target teams distribute parallel for simd
294 for (int a{0}; a < 10; ++a) {
295 }
296
297 return 0;
298 }
299
300 // Iterators allowed in openmp for-loops.
301 namespace std {
302 struct random_access_iterator_tag {};
303 template <class Iter>
304 struct iterator_traits {
305 typedef typename Iter::difference_type difference_type;
306 typedef typename Iter::iterator_category iterator_category;
307 };
308 template <class Iter>
309 typename iterator_traits<Iter>::difference_type
distance(Iter first,Iter last)310 distance(Iter first, Iter last) { return first - last; }
311 }
312 class Iter0 {
313 public:
Iter0()314 Iter0() {}
Iter0(const Iter0 &)315 Iter0(const Iter0 &) {}
operator ++()316 Iter0 operator++() { return *this; }
operator --()317 Iter0 operator--() { return *this; }
operator <(Iter0 a)318 bool operator<(Iter0 a) { return true; }
319 };
320 // expected-note@+2 {{candidate function not viable: no known conversion from 'GoodIter' to 'Iter0' for 1st argument}}
321 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter1' to 'Iter0' for 1st argument}}
operator -(Iter0 a,Iter0 b)322 int operator-(Iter0 a, Iter0 b) { return 0; }
323 class Iter1 {
324 public:
Iter1(float f=0.0f,double d=0.0)325 Iter1(float f = 0.0f, double d = 0.0) {}
Iter1(const Iter1 &)326 Iter1(const Iter1 &) {}
operator ++()327 Iter1 operator++() { return *this; }
operator --()328 Iter1 operator--() { return *this; }
operator <(Iter1 a)329 bool operator<(Iter1 a) { return true; }
operator >=(Iter1 a)330 bool operator>=(Iter1 a) { return false; }
331 };
332 class GoodIter {
333 public:
GoodIter()334 GoodIter() {}
GoodIter(const GoodIter &)335 GoodIter(const GoodIter &) {}
GoodIter(int fst,int snd)336 GoodIter(int fst, int snd) {}
operator =(const GoodIter & that)337 GoodIter &operator=(const GoodIter &that) { return *this; }
operator =(const Iter0 & that)338 GoodIter &operator=(const Iter0 &that) { return *this; }
operator +=(int x)339 GoodIter &operator+=(int x) { return *this; }
GoodIter(void *)340 explicit GoodIter(void *) {}
operator ++()341 GoodIter operator++() { return *this; }
operator --()342 GoodIter operator--() { return *this; }
operator !()343 bool operator!() { return true; }
operator <(GoodIter a)344 bool operator<(GoodIter a) { return true; }
operator <=(GoodIter a)345 bool operator<=(GoodIter a) { return true; }
operator >=(GoodIter a)346 bool operator>=(GoodIter a) { return false; }
347 typedef int difference_type;
348 typedef std::random_access_iterator_tag iterator_category;
349 };
350 // expected-note@+2 {{candidate function not viable: no known conversion from 'const Iter0' to 'GoodIter' for 2nd argument}}
351 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter1' to 'GoodIter' for 1st argument}}
operator -(GoodIter a,GoodIter b)352 int operator-(GoodIter a, GoodIter b) { return 0; }
353 // expected-note@+1 3 {{candidate function not viable: requires single argument 'a', but 2 arguments were provided}}
operator -(GoodIter a)354 GoodIter operator-(GoodIter a) { return a; }
355 // expected-note@+2 {{candidate function not viable: no known conversion from 'const Iter0' to 'int' for 2nd argument}}
356 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter1' to 'GoodIter' for 1st argument}}
operator -(GoodIter a,int v)357 GoodIter operator-(GoodIter a, int v) { return GoodIter(); }
358 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter0' to 'GoodIter' for 1st argument}}
operator +(GoodIter a,int v)359 GoodIter operator+(GoodIter a, int v) { return GoodIter(); }
360 // expected-note@+2 {{candidate function not viable: no known conversion from 'GoodIter' to 'int' for 1st argument}}
361 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter1' to 'int' for 1st argument}}
operator -(int v,GoodIter a)362 GoodIter operator-(int v, GoodIter a) { return GoodIter(); }
363 // expected-note@+1 2 {{candidate function not viable: no known conversion from 'Iter0' to 'int' for 1st argument}}
operator +(int v,GoodIter a)364 GoodIter operator+(int v, GoodIter a) { return GoodIter(); }
365
test_with_random_access_iterator()366 int test_with_random_access_iterator() {
367 GoodIter begin, end;
368 Iter0 begin0, end0;
369 #pragma omp target teams distribute parallel for simd
370 for (GoodIter I = begin; I < end; ++I)
371 ++I;
372 #pragma omp target teams distribute parallel for simd
373 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
374 for (GoodIter &I = begin; I < end; ++I)
375 ++I;
376 #pragma omp target teams distribute parallel for simd
377 for (GoodIter I = begin; I >= end; --I)
378 ++I;
379 #pragma omp target teams distribute parallel for simd
380 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
381 for (GoodIter I(begin); I < end; ++I)
382 ++I;
383 #pragma omp target teams distribute parallel for simd
384 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
385 for (GoodIter I(nullptr); I < end; ++I)
386 ++I;
387 #pragma omp target teams distribute parallel for simd
388 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
389 for (GoodIter I(0); I < end; ++I)
390 ++I;
391 #pragma omp target teams distribute parallel for simd
392 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
393 for (GoodIter I(1, 2); I < end; ++I)
394 ++I;
395 #pragma omp target teams distribute parallel for simd
396 for (begin = GoodIter(0); begin < end; ++begin)
397 ++begin;
398 #pragma omp target teams distribute parallel for simd
399 // expected-error@+2 {{invalid operands to binary expression ('GoodIter' and 'const Iter0')}}
400 // expected-error@+1 {{could not calculate number of iterations calling 'operator-' with upper and lower loop bounds}}
401 for (begin = begin0; begin < end; ++begin)
402 ++begin;
403 #pragma omp target teams distribute parallel for simd
404 // expected-error@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
405 for (++begin; begin < end; ++begin)
406 ++begin;
407 #pragma omp target teams distribute parallel for simd
408 for (begin = end; begin < end; ++begin)
409 ++begin;
410 #pragma omp target teams distribute parallel for simd
411 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'I'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'I'}}
412 for (GoodIter I = begin; I - I; ++I)
413 ++I;
414 #pragma omp target teams distribute parallel for simd
415 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'I'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'I'}}
416 for (GoodIter I = begin; begin < end; ++I)
417 ++I;
418 #pragma omp target teams distribute parallel for simd
419 // omp45-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', or '>=') of loop variable 'I'}} omp5-error@+1 {{condition of OpenMP for loop must be a relational comparison ('<', '<=', '>', '>=', or '!=') of loop variable 'I'}}
420 for (GoodIter I = begin; !I; ++I)
421 ++I;
422 #pragma omp target teams distribute parallel for simd
423 // expected-note@+2 {{loop step is expected to be negative due to this condition}}
424 // expected-error@+1 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
425 for (GoodIter I = begin; I >= end; I = I + 1)
426 ++I;
427 #pragma omp target teams distribute parallel for simd
428 for (GoodIter I = begin; I >= end; I = I - 1)
429 ++I;
430 #pragma omp target teams distribute parallel for simd
431 // expected-error@+1 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'I'}}
432 for (GoodIter I = begin; I >= end; I = -I)
433 ++I;
434 #pragma omp target teams distribute parallel for simd
435 // expected-note@+2 {{loop step is expected to be negative due to this condition}}
436 // expected-error@+1 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
437 for (GoodIter I = begin; I >= end; I = 2 + I)
438 ++I;
439 #pragma omp target teams distribute parallel for simd
440 // expected-error@+1 {{increment clause of OpenMP for loop must perform simple addition or subtraction on loop variable 'I'}}
441 for (GoodIter I = begin; I >= end; I = 2 - I)
442 ++I;
443 #pragma omp target teams distribute parallel for simd
444 // expected-error@+1 {{invalid operands to binary expression ('Iter0' and 'int')}}
445 for (Iter0 I = begin0; I < end0; ++I)
446 ++I;
447 #pragma omp target teams distribute parallel for simd
448 // Initializer is constructor without params.
449 // expected-error@+2 {{invalid operands to binary expression ('Iter0' and 'int')}}
450 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
451 for (Iter0 I; I < end0; ++I)
452 ++I;
453 Iter1 begin1, end1;
454 #pragma omp target teams distribute parallel for simd
455 // expected-error@+2 {{invalid operands to binary expression ('Iter1' and 'Iter1')}}
456 // expected-error@+1 {{could not calculate number of iterations calling 'operator-' with upper and lower loop bounds}}
457 for (Iter1 I = begin1; I < end1; ++I)
458 ++I;
459 #pragma omp target teams distribute parallel for simd
460 // expected-note@+2 {{loop step is expected to be negative due to this condition}}
461 // expected-error@+1 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
462 for (Iter1 I = begin1; I >= end1; ++I)
463 ++I;
464 #pragma omp target teams distribute parallel for simd
465 // expected-error@+4 {{invalid operands to binary expression ('Iter1' and 'float')}}
466 // expected-error@+3 {{could not calculate number of iterations calling 'operator-' with upper and lower loop bounds}}
467 // Initializer is constructor with all default params.
468 // expected-warning@+1 {{initialization clause of OpenMP for loop is not in canonical form ('var = init' or 'T var = init')}}
469 for (Iter1 I; I < end1; ++I) {
470 }
471 return 0;
472 }
473
474 template <typename IT, int ST>
475 class TC {
476 public:
dotest_lt(IT begin,IT end)477 int dotest_lt(IT begin, IT end) {
478 #pragma omp target teams distribute parallel for simd
479 // expected-note@+2 {{loop step is expected to be positive due to this condition}}
480 // expected-error@+1 {{increment expression must cause 'I' to increase on each iteration of OpenMP for loop}}
481 for (IT I = begin; I < end; I = I + ST) {
482 ++I;
483 }
484 #pragma omp target teams distribute parallel for simd
485 // expected-note@+2 {{loop step is expected to be positive due to this condition}}
486 // expected-error@+1 {{increment expression must cause 'I' to increase on each iteration of OpenMP for loop}}
487 for (IT I = begin; I <= end; I += ST) {
488 ++I;
489 }
490 #pragma omp target teams distribute parallel for simd
491 for (IT I = begin; I < end; ++I) {
492 ++I;
493 }
494 }
495
step()496 static IT step() {
497 return IT(ST);
498 }
499 };
500 template <typename IT, int ST = 0>
dotest_gt(IT begin,IT end)501 int dotest_gt(IT begin, IT end) {
502 #pragma omp target teams distribute parallel for simd
503 // expected-note@+2 2 {{loop step is expected to be negative due to this condition}}
504 // expected-error@+1 2 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
505 for (IT I = begin; I >= end; I = I + ST) {
506 ++I;
507 }
508 #pragma omp target teams distribute parallel for simd
509 // expected-note@+2 2 {{loop step is expected to be negative due to this condition}}
510 // expected-error@+1 2 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
511 for (IT I = begin; I >= end; I += ST) {
512 ++I;
513 }
514
515 #pragma omp target teams distribute parallel for simd
516 // expected-note@+2 {{loop step is expected to be negative due to this condition}}
517 // expected-error@+1 {{increment expression must cause 'I' to decrease on each iteration of OpenMP for loop}}
518 for (IT I = begin; I >= end; ++I) {
519 ++I;
520 }
521
522 #pragma omp target teams distribute parallel for simd
523 for (IT I = begin; I < end; I += TC<int, ST>::step()) {
524 ++I;
525 }
526 }
527
test_with_template()528 void test_with_template() {
529 GoodIter begin, end;
530 TC<GoodIter, 100> t1;
531 TC<GoodIter, -100> t2;
532 t1.dotest_lt(begin, end);
533 t2.dotest_lt(begin, end); // expected-note {{in instantiation of member function 'TC<GoodIter, -100>::dotest_lt' requested here}}
534 dotest_gt(begin, end); // expected-note {{in instantiation of function template specialization 'dotest_gt<GoodIter, 0>' requested here}}
535 dotest_gt<unsigned, 10>(0, 100); // expected-note {{in instantiation of function template specialization 'dotest_gt<unsigned int, 10>' requested here}}
536 }
537
test_loop_break()538 void test_loop_break() {
539 const int N = 100;
540 float a[N], b[N], c[N];
541 #pragma omp target teams distribute parallel for simd
542 for (int i = 0; i < 10; i++) {
543 c[i] = a[i] + b[i];
544 for (int j = 0; j < 10; ++j) {
545 if (a[i] > b[j])
546 break; // OK in nested loop
547 }
548 switch (i) {
549 case 1:
550 b[i]++;
551 break;
552 default:
553 break;
554 }
555 if (c[i] > 10)
556 break; // expected-error {{'break' statement cannot be used in OpenMP for loop}}
557
558 if (c[i] > 11)
559 break; // expected-error {{'break' statement cannot be used in OpenMP for loop}}
560 }
561
562 #pragma omp target teams distribute parallel for simd
563 for (int i = 0; i < 10; i++) {
564 for (int j = 0; j < 10; j++) {
565 c[i] = a[i] + b[i];
566 if (c[i] > 10) {
567 if (c[i] < 20) {
568 break; // OK
569 }
570 }
571 }
572 }
573 }
574
test_loop_eh()575 void test_loop_eh() {
576 const int N = 100;
577 float a[N], b[N], c[N];
578 #pragma omp target teams distribute parallel for simd
579 for (int i = 0; i < 10; i++) {
580 c[i] = a[i] + b[i];
581 try { // expected-error {{'try' statement cannot be used in OpenMP simd region}}
582 for (int j = 0; j < 10; ++j) {
583 if (a[i] > b[j])
584 throw a[i]; // expected-error {{'throw' statement cannot be used in OpenMP simd region}}
585 }
586 throw a[i]; // expected-error {{'throw' statement cannot be used in OpenMP simd region}}
587 } catch (float f) {
588 if (f > 0.1)
589 throw a[i]; // expected-error {{'throw' statement cannot be used in OpenMP simd region}}
590 return; // expected-error {{cannot return from OpenMP region}}
591 }
592 switch (i) {
593 case 1:
594 b[i]++;
595 break;
596 default:
597 break;
598 }
599 for (int j = 0; j < 10; j++) {
600 if (c[i] > 10)
601 throw c[i]; // expected-error {{'throw' statement cannot be used in OpenMP simd region}}
602 }
603 }
604 if (c[9] > 10)
605 throw c[9]; // OK
606
607 #pragma omp target teams distribute parallel for simd
608 for (int i = 0; i < 10; ++i) {
609 struct S {
610 void g() { throw 0; }
611 };
612 }
613 }
614
test_loop_firstprivate_lastprivate()615 void test_loop_firstprivate_lastprivate() {
616 S s(4);
617 // expected-error@+1 {{lastprivate variable cannot be firstprivate}} expected-note@+1 {{defined as lastprivate}}
618 #pragma omp target teams distribute parallel for simd lastprivate(s) firstprivate(s) // expected-error {{calling a private constructor of class 'S'}}
619 for (int i = 0; i < 16; ++i)
620 ;
621 }
622
test_ordered()623 void test_ordered() {
624 #pragma omp target teams distribute parallel for simd ordered // expected-error {{unexpected OpenMP clause 'ordered' in directive '#pragma omp target teams distribute parallel for simd'}}
625 for (int i = 0; i < 16; ++i)
626 ;
627 }
628
test_nowait()629 void test_nowait() {
630 #pragma omp target teams distribute parallel for simd nowait nowait // expected-error {{directive '#pragma omp target teams distribute parallel for simd' cannot contain more than one 'nowait' clause}}
631 for (int i = 0; i < 16; ++i)
632 ;
633 #pragma omp target teams distribute parallel for simd order // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} expected-error {{expected '(' after 'order'}}
634 for (int i = 0; i < 10; ++i)
635 ;
636 #pragma omp target teams distribute parallel for simd order( // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
637 for (int i = 0; i < 10; ++i)
638 ;
639 #pragma omp target teams distribute parallel for simd order(none // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
640 for (int i = 0; i < 10; ++i)
641 ;
642 #pragma omp target teams distribute parallel for simd order(concurrent // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
643 for (int i = 0; i < 10; ++i)
644 ;
645 #pragma omp target teams distribute parallel for simd order(concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}}
646 for (int i = 0; i < 10; ++i)
647 ;
648 #pragma omp target teams distribute parallel for simd order(unconstrained:) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
649 for (int i = 0; i < 10; ++i)
650 ;
651 #pragma omp target teams distribute parallel for simd order(reproducible:concurrent // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
652 for (int i = 0; i < 10; ++i)
653 ;
654 #pragma omp target teams distribute parallel for simd order(reproducible:concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
655 for (int i = 0; i < 10; ++i)
656 ;
657 #pragma omp target teams distribute parallel for simd order(unconstrained:concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
658 for (int i = 0; i < 10; ++i)
659 ;
660 #pragma omp target teams distribute parallel for simd order(concurrent) order(concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for simd'}} omp51-error {{directive '#pragma omp target teams distribute parallel for simd' cannot contain more than one 'order' clause}}
661 for (int i = 0; i < 10; ++i)
662 ;
663 }
664
665