clang/test/OpenMP/parallel_master_taskloop_misc_messages.c

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