test/OpenMP/taskloop_simd_misc_messages.c

   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
   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
  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
  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
  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
  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
 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
 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
 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
 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