clang/test/OpenMP/target_teams_distribute_misc_messages.c

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