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