clang/test/OpenMP/target_teams_distribute_parallel_for_messages.cpp

   1 // RUN: %clang_cc1 -verify=expected,omp45 -fopenmp -fopenmp-version=45 -std=c++11 %s -Wuninitialized
   2 // RUN: %clang_cc1 -verify=expected,omp5,omp50 -fopenmp -fopenmp-version=50 -std=c++11 %s -Wuninitialized
   3 // RUN: %clang_cc1 -verify=expected,omp5,omp51 -fopenmp -std=c++11 %s -Wuninitialized
   4
   5 // RUN: %clang_cc1 -verify=expected,omp45 -fopenmp-simd -fopenmp-version=45 -std=c++11 %s -Wuninitialized
   6 // RUN: %clang_cc1 -verify=expected,omp5,omp50 -fopenmp-simd -fopenmp-version=50 -std=c++11 %s -Wuninitialized
   7 // RUN: %clang_cc1 -verify=expected,omp5,omp51 -fopenmp-simd -std=c++11 %s -Wuninitialized
   8
   9 void xxx(int argc) {
  10   int x; // expected-note {{initialize the variable 'x' to silence this warning}}
  11 #pragma omp target teams distribute parallel for
  12   for (int i = 0; i < 10; ++i)
  13     argc = x; // expected-warning {{variable 'x' is uninitialized when used here}}
  14 }
  15
  16 void foo() {
  17 }
  18
  19 static int pvt;
  20 #pragma omp threadprivate(pvt)
  21
  22 #pragma omp target teams distribute parallel for // expected-error {{unexpected OpenMP directive '#pragma omp target teams distribute parallel for'}}
  23
  24 int main(int argc, char **argv) {
  25 #pragma omp target teams distribute parallel for { // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  26   for (int i = 0; i < argc; ++i)
  27     foo();
  28 #pragma omp target teams distribute parallel for ( // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  29   for (int i = 0; i < argc; ++i)
  30     foo();
  31 #pragma omp target teams distribute parallel for[ // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  32   for (int i = 0; i < argc; ++i)
  33     foo();
  34 #pragma omp target teams distribute parallel for] // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  35   for (int i = 0; i < argc; ++i)
  36     foo();
  37 #pragma omp target teams distribute parallel for) // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  38   for (int i = 0; i < argc; ++i)
  39     foo();
  40 #pragma omp target teams distribute parallel for } // expected-warning {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  41   for (int i = 0; i < argc; ++i)
  42     foo();
  43 #pragma omp target teams distribute parallel for linear(argc) // expected-error {{unexpected OpenMP clause 'linear' in directive '#pragma omp target teams distribute parallel for'}}
  44   for (int i = 0; i < argc; ++i)
  45     foo();
  46 // expected-warning@+1 {{extra tokens at the end of '#pragma omp target teams distribute parallel for' are ignored}}
  47 #pragma omp target teams distribute parallel for unknown()
  48   for (int i = 0; i < argc; ++i)
  49     foo();
  50 L1:
  51   for (int i = 0; i < argc; ++i)
  52     foo();
  53 #pragma omp target teams distribute parallel for
  54   for (int i = 0; i < argc; ++i)
  55     foo();
  56 #pragma omp target teams distribute parallel for
  57   for (int i = 0; i < argc; ++i) {
  58     goto L1; // expected-error {{use of undeclared label 'L1'}}
  59     argc++;
  60   }
  61
  62   for (int i = 0; i < 10; ++i) {
  63     switch (argc) {
  64     case (0):
  65 #pragma omp target teams distribute parallel for
  66       for (int i = 0; i < argc; ++i) {
  67         foo();
  68         break; // expected-error {{'break' statement cannot be used in OpenMP for loop}}
  69         continue;
  70       }
  71     default:
  72       break;
  73     }
  74   }
  75 #pragma omp target teams distribute parallel for default(none) // expected-note {{explicit data sharing attribute requested here}}
  76   for (int i = 0; i < 10; ++i)
  77     ++argc; // expected-error {{ariable 'argc' must have explicitly specified data sharing attributes}}
  78
  79   goto L2; // expected-error {{use of undeclared label 'L2'}}
  80 #pragma omp target teams distribute parallel for
  81   for (int i = 0; i < argc; ++i)
  82   L2: foo();
  83
  84 #pragma omp target teams distribute parallel for
  85   for (int i = 0; i < argc; ++i) {
  86     return 1; // expected-error {{cannot return from OpenMP region}}
  87   }
  88
  89   [[]] // expected-error {{an attribute list cannot appear here}}
  90 #pragma omp target teams distribute parallel for
  91       for (int n = 0; n < 100; ++n) {
  92   }
  93
  94 #pragma omp target teams distribute parallel for copyin(pvt) // expected-error {{unexpected OpenMP clause 'copyin' in directive '#pragma omp target teams distribute parallel for'}}
  95   for (int n = 0; n < 100; ++n) {}
  96
  97   return 0;
  98 }
  99
 100 void test_ordered() {
 101 #pragma omp target teams distribute parallel for ordered // expected-error {{unexpected OpenMP clause 'ordered' in directive '#pragma omp target teams distribute parallel for'}}
 102   for (int i = 0; i < 16; ++i)
 103     ;
 104 #pragma omp target teams distribute parallel for order // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} expected-error {{expected '(' after 'order'}}
 105   for (int i = 0; i < 10; ++i)
 106     ;
 107 #pragma omp target teams distribute parallel for order( // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
 108   for (int i = 0; i < 10; ++i)
 109     ;
 110 #pragma omp target teams distribute parallel for order(none // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
 111   for (int i = 0; i < 10; ++i)
 112     ;
 113 #pragma omp target teams distribute parallel for order(concurrent // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} expected-error {{expected ')'}} expected-note {{to match this '('}}
 114   for (int i = 0; i < 10; ++i)
 115     ;
 116 #pragma omp target teams distribute parallel for order(concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}}
 117   for (int i = 0; i < 10; ++i)
 118     ;
 119 #pragma omp target teams distribute parallel for order(unconstrained:) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} omp5-error {{expected 'concurrent' in OpenMP clause 'order'}}
 120   for (int i = 0; i < 10; ++i)
 121     ;
 122 #pragma omp target teams distribute parallel for order(reproducible:concurrent // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} expected-error {{expected ')'}} expected-note {{to match this '('}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
 123   for (int i = 0; i < 10; ++i)
 124     ;
 125 #pragma omp target teams distribute parallel for order(reproducible:concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
 126   for (int i = 0; i < 10; ++i)
 127     ;
 128 #pragma omp target teams distribute parallel for order(unconstrained:concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} omp50-error {{expected 'concurrent' in OpenMP clause 'order'}}
 129   for (int i = 0; i < 10; ++i)
 130     ;
 131 #pragma omp target teams distribute parallel for order(concurrent) order(concurrent) // omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} omp45-error {{unexpected OpenMP clause 'order' in directive '#pragma omp target teams distribute parallel for'}} omp51-error {{directive '#pragma omp target teams distribute parallel for' cannot contain more than one 'order' clause}}
 132   for (int i = 0; i < 10; ++i)
 133     ;
 134 }
 135