test/OpenMP/target_teams_distribute_parallel_for_misc_messages.c

   1 // RUN: %clang_cc1 -fsyntax-only -fopenmp -verify %s
   2
   3 // expected-error@+1 {{unexpected OpenMP directive '#pragma omp target teams distribute parallel for'}}
   4 #pragma omp target teams distribute parallel for
   5
   6 // expected-error@+1 {{unexpected OpenMP directive '#pragma omp target teams distribute parallel for'}}
   7 #pragma omp target teams distribute parallel for foo
   8
   9 void test_no_clause() {
  10   int i;
  11 #pragma omp target teams distribute parallel for
  12   for (i = 0; i < 16; ++i)
  13     ;
  14
  15 // expected-error@+2 {{statement after '#pragma omp target teams distribute parallel for' must be a for loop}}
  16 #pragma omp target teams distribute parallel for
  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 target teams distribute parallel for
  28   for (i = 0; i < 16; ++i) {
  29     if (i == 5)
  30       goto L1; // expected-error {{use of undeclared label 'L1'}}
  31     else if (i == 6)
  32       return; // expected-error {{cannot return from OpenMP region}}
  33     else if (i == 7)
  34       goto L2;
  35     else if (i == 8) {
  36     L2:
  37       x[i]++;
  38     }
  39   }
  40
  41   if (x[0] == 0)
  42     goto L2; // expected-error {{use of undeclared label 'L2'}}
  43   else if (x[1] == 1)
  44     goto L1;
  45 }
  46
  47 void test_invalid_clause() {
  48   int i;
  49 // expected-warning@+1 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  50 #pragma omp target teams distribute parallel for foo bar
  51   for (i = 0; i < 16; ++i)
  52     ;
  53 }
  54
  55 void test_non_identifiers() {
  56   int i, x;
  57
  58 // expected-warning@+1 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  59 #pragma omp target teams distribute parallel for;
  60   for (i = 0; i < 16; ++i)
  61     ;
  62
  63 // expected-warning@+1 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  64 #pragma omp target teams distribute parallel for private(x);
  65   for (i = 0; i < 16; ++i)
  66     ;
  67
  68 // expected-warning@+1 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  69 #pragma omp target teams distribute parallel for, private(x);
  70   for (i = 0; i < 16; ++i)
  71     ;
  72 }
  73
  74 extern int foo();
  75
  76 void test_collapse() {
  77   int i;
  78 // expected-error@+1 {{expected '('}}
  79 #pragma omp target teams distribute parallel for collapse
  80   for (i = 0; i < 16; ++i)
  81     ;
  82 // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
  83 #pragma omp target teams distribute parallel for collapse(
  84   for (i = 0; i < 16; ++i)
  85     ;
  86 // expected-error@+1 {{expected expression}}
  87 #pragma omp target teams distribute parallel for collapse()
  88   for (i = 0; i < 16; ++i)
  89     ;
  90 // expected-error@+1 {{expected expression}} expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
  91 #pragma omp target teams distribute parallel for collapse(,
  92   for (i = 0; i < 16; ++i)
  93     ;
  94 // expected-error@+1 {{expected expression}}  expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
  95 #pragma omp target teams distribute parallel for collapse(, )
  96   for (i = 0; i < 16; ++i)
  97     ;
  98 // expected-warning@+2 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  99 // expected-error@+1 {{expected '('}}
 100 #pragma omp target teams distribute parallel for collapse 4)
 101   for (i = 0; i < 16; ++i)
 102     ;
 103 // expected-error@+2 {{expected ')'}}
 104 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 105 #pragma omp target teams distribute parallel for collapse(4
 106   for (i = 0; i < 16; ++i)
 107     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 108 // expected-error@+2 {{expected ')'}}
 109 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 110 #pragma omp target teams distribute parallel for collapse(4,
 111   for (i = 0; i < 16; ++i)
 112     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 113 // expected-error@+2 {{expected ')'}}
 114 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 115 #pragma omp target teams distribute parallel for collapse(4, )
 116   for (i = 0; i < 16; ++i)
 117     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 118 // expected-note@+1 {{as specified in 'collapse' clause}}
 119 #pragma omp target teams distribute parallel for collapse(4)
 120   for (i = 0; i < 16; ++i)
 121     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 122 // expected-error@+2 {{expected ')'}}
 123 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 124 #pragma omp target teams distribute parallel for collapse(4 4)
 125   for (i = 0; i < 16; ++i)
 126     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 127 // expected-error@+2 {{expected ')'}}
 128 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 129 #pragma omp target teams distribute parallel for collapse(4, , 4)
 130   for (i = 0; i < 16; ++i)
 131     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 132 #pragma omp target teams distribute parallel for collapse(4)
 133   for (int i1 = 0; i1 < 16; ++i1)
 134     for (int i2 = 0; i2 < 16; ++i2)
 135       for (int i3 = 0; i3 < 16; ++i3)
 136         for (int i4 = 0; i4 < 16; ++i4)
 137           foo();
 138 // expected-error@+2 {{expected ')'}}
 139 // expected-note@+1 {{to match this '('}} expected-note@+1 {{as specified in 'collapse' clause}}
 140 #pragma omp target teams distribute parallel for collapse(4, 8)
 141   for (i = 0; i < 16; ++i)
 142     ; // expected-error {{expected 4 for loops after '#pragma omp target teams distribute parallel for', but found only 1}}
 143 // expected-error@+1 {{expression is not an integer constant expression}}
 144 #pragma omp target teams distribute parallel for collapse(2.5)
 145   for (i = 0; i < 16; ++i)
 146     ;
 147 // expected-error@+1 {{expression is not an integer constant expression}}
 148 #pragma omp target teams distribute parallel for collapse(foo())
 149   for (i = 0; i < 16; ++i)
 150     ;
 151 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
 152 #pragma omp target teams distribute parallel for collapse(-5)
 153   for (i = 0; i < 16; ++i)
 154     ;
 155 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
 156 #pragma omp target teams distribute parallel for collapse(0)
 157   for (i = 0; i < 16; ++i)
 158     ;
 159 // expected-error@+1 {{argument to 'collapse' clause must be a strictly positive integer value}}
 160 #pragma omp target teams distribute parallel for collapse(5 - 5)
 161   for (i = 0; i < 16; ++i)
 162     ;
 163 // expected-error@+3 {{loop iteration variable in the associated loop of 'omp target teams distribute parallel for' directive may not be firstprivate, predetermined as private}}
 164 // expected-note@+1 {{defined as firstprivate}}
 165 #pragma omp target teams distribute parallel for collapse(2) firstprivate(i)
 166   for (i = 0; i < 16; ++i)
 167     for (int j = 0; j < 16; ++j)
 168 #pragma omp parallel for reduction(+ : i, j)
 169       for (int k = 0; k < 16; ++k)
 170         i += j;
 171 }
 172
 173 void test_private() {
 174   int i;
 175 // expected-error@+2 {{expected expression}}
 176 // expected-error@+1 {{expected ')'}} expected-note@+1 {{to match this '('}}
 177 #pragma omp target teams distribute parallel for private(
 178   for (i = 0; i < 16; ++i)
 179     ;
 180 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
 181 // expected-error@+1 2 {{expected expression}}
 182 #pragma omp target teams distribute parallel for private(,
 183   for (i = 0; i < 16; ++i)
 184     ;
 185 // expected-error@+1 2 {{expected expression}}
 186 #pragma omp target teams distribute parallel for private(, )
 187   for (i = 0; i < 16; ++i)
 188     ;
 189 // expected-error@+1 {{expected expression}}
 190 #pragma omp target teams distribute parallel for private()
 191   for (i = 0; i < 16; ++i)
 192     ;
 193 // expected-error@+1 {{expected expression}}
 194 #pragma omp target teams distribute parallel for private(int)
 195   for (i = 0; i < 16; ++i)
 196     ;
 197 // expected-error@+1 {{expected variable name}}
 198 #pragma omp target teams distribute parallel for private(0)
 199   for (i = 0; i < 16; ++i)
 200     ;
 201
 202   int x, y, z;
 203 #pragma omp target teams distribute parallel for private(x)
 204   for (i = 0; i < 16; ++i)
 205     ;
 206 #pragma omp target teams distribute parallel for private(x, y)
 207   for (i = 0; i < 16; ++i)
 208     ;
 209 #pragma omp target teams distribute parallel for private(x, y, z)
 210   for (i = 0; i < 16; ++i) {
 211     x = y * i + z;
 212   }
 213 }
 214
 215 void test_lastprivate() {
 216   int i;
 217 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
 218 // expected-error@+1 {{expected expression}}
 219 #pragma omp target teams distribute parallel for lastprivate(
 220   for (i = 0; i < 16; ++i)
 221     ;
 222
 223 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
 224 // expected-error@+1 2 {{expected expression}}
 225 #pragma omp target teams distribute parallel for lastprivate(,
 226   for (i = 0; i < 16; ++i)
 227     ;
 228 // expected-error@+1 2 {{expected expression}}
 229 #pragma omp target teams distribute parallel for lastprivate(, )
 230   for (i = 0; i < 16; ++i)
 231     ;
 232 // expected-error@+1 {{expected expression}}
 233 #pragma omp target teams distribute parallel for lastprivate()
 234   for (i = 0; i < 16; ++i)
 235     ;
 236 // expected-error@+1 {{expected expression}}
 237 #pragma omp target teams distribute parallel for lastprivate(int)
 238   for (i = 0; i < 16; ++i)
 239     ;
 240 // expected-error@+1 {{expected variable name}}
 241 #pragma omp target teams distribute parallel for lastprivate(0)
 242   for (i = 0; i < 16; ++i)
 243     ;
 244
 245   int x, y, z;
 246 #pragma omp target teams distribute parallel for lastprivate(x)
 247   for (i = 0; i < 16; ++i)
 248     ;
 249 #pragma omp target teams distribute parallel for lastprivate(x, y)
 250   for (i = 0; i < 16; ++i)
 251     ;
 252 #pragma omp target teams distribute parallel for lastprivate(x, y, z)
 253   for (i = 0; i < 16; ++i)
 254     ;
 255 }
 256
 257 void test_firstprivate() {
 258   int i;
 259 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
 260 // expected-error@+1 {{expected expression}}
 261 #pragma omp target teams distribute parallel for firstprivate(
 262   for (i = 0; i < 16; ++i)
 263     ;
 264
 265 // expected-error@+2 {{expected ')'}} expected-note@+2 {{to match this '('}}
 266 // expected-error@+1 2 {{expected expression}}
 267 #pragma omp target teams distribute parallel for firstprivate(,
 268   for (i = 0; i < 16; ++i)
 269     ;
 270 // expected-error@+1 2 {{expected expression}}
 271 #pragma omp target teams distribute parallel for firstprivate(, )
 272   for (i = 0; i < 16; ++i)
 273     ;
 274 // expected-error@+1 {{expected expression}}
 275 #pragma omp target teams distribute parallel for firstprivate()
 276   for (i = 0; i < 16; ++i)
 277     ;
 278 // expected-error@+1 {{expected expression}}
 279 #pragma omp target teams distribute parallel for firstprivate(int)
 280   for (i = 0; i < 16; ++i)
 281     ;
 282 // expected-error@+1 {{expected variable name}}
 283 #pragma omp target teams distribute parallel for firstprivate(0)
 284   for (i = 0; i < 16; ++i)
 285     ;
 286
 287   int x, y, z;
 288 #pragma omp target teams distribute parallel for lastprivate(x) firstprivate(x)
 289   for (i = 0; i < 16; ++i)
 290     ;
 291 #pragma omp target teams distribute parallel for lastprivate(x, y) firstprivate(x, y)
 292   for (i = 0; i < 16; ++i)
 293     ;
 294 #pragma omp target teams distribute parallel for lastprivate(x, y, z) firstprivate(x, y, z)
 295   for (i = 0; i < 16; ++i)
 296     ;
 297 }
 298
 299 void test_loop_messages() {
 300   float a[100], b[100], c[100];
 301 // expected-error@+2 {{variable must be of integer or pointer type}}
 302 #pragma omp target teams distribute parallel for
 303   for (float fi = 0; fi < 10.0; fi++) {
 304     c[(int)fi] = a[(int)fi] + b[(int)fi];
 305   }
 306 // expected-error@+2 {{variable must be of integer or pointer type}}
 307 #pragma omp target teams distribute parallel for
 308   for (double fi = 0; fi < 10.0; fi++) {
 309     c[(int)fi] = a[(int)fi] + b[(int)fi];
 310   }
 311 }
 312