Home | History | Annotate | Download | only in OpenMP 
      1 // RUN: %clang_cc1 -verify -fopenmp %s
      2 
      3 void foo() {
      4 }
      5 
      6 bool foobool(int argc) {
      7   return argc;
      8 }
      9 
     10 struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
     11 extern S1 a;
     12 class S2 {
     13   mutable int a;
     14 
     15 public:
     16   S2() : a(0) {}
     17 };
     18 const S2 b;
     19 const S2 ba[5];
     20 class S3 {
     21   int a;
     22 
     23 public:
     24   S3() : a(0) {}
     25 };
     26 const S3 ca[5];
     27 class S4 {
     28   int a;
     29   S4(); // expected-note {{implicitly declared private here}}
     30 
     31 public:
     32   S4(int v) : a(v) {
     33 #pragma omp target parallel for private(a) private(this->a)
     34     for (int k = 0; k < v; ++k)
     35       ++this->a;
     36   }
     37 };
     38 class S5 {
     39   int a;
     40   S5() : a(0) {} // expected-note {{implicitly declared private here}}
     41 
     42 public:
     43   S5(int v) : a(v) {}
     44   S5 &operator=(S5 &s) {
     45 #pragma omp target parallel for private(a) private(this->a) private(s.a) // expected-error {{expected variable name or data member of current class}}
     46     for (int k = 0; k < s.a; ++k)
     47       ++s.a;
     48     return *this;
     49   }
     50 };
     51 
     52 template <typename T>
     53 class S6 {
     54 public:
     55   T a;
     56 
     57   S6() : a(0) {}
     58   S6(T v) : a(v) {
     59 #pragma omp target parallel for private(a) private(this->a)
     60     for (int k = 0; k < v; ++k)
     61       ++this->a;
     62   }
     63   S6 &operator=(S6 &s) {
     64 #pragma omp target parallel for private(a) private(this->a) private(s.a) // expected-error {{expected variable name or data member of current class}}
     65     for (int k = 0; k < s.a; ++k)
     66       ++s.a;
     67     return *this;
     68   }
     69 };
     70 
     71 template <typename T>
     72 class S7 : public T {
     73   T a;
     74   S7() : a(0) {}
     75 
     76 public:
     77   S7(T v) : a(v) {
     78 #pragma omp target parallel for private(a) private(this->a) private(T::a)
     79     for (int k = 0; k < a.a; ++k)
     80       ++this->a.a;
     81   }
     82   S7 &operator=(S7 &s) {
     83 #pragma omp target parallel for private(a) private(this->a) private(s.a) private(s.T::a) // expected-error 2 {{expected variable name or data member of current class}}
     84     for (int k = 0; k < s.a.a; ++k)
     85       ++s.a.a;
     86     return *this;
     87   }
     88 };
     89 
     90 S3 h;
     91 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
     92 
     93 template <class I, class C>
     94 int foomain(I argc, C **argv) {
     95   I e(4);
     96   I g(5);
     97   int i;
     98   int &j = i;
     99 #pragma omp target parallel for private // expected-error {{expected '(' after 'private'}}
    100   for (int k = 0; k < argc; ++k)
    101     ++k;
    102 #pragma omp target parallel for private( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    103   for (int k = 0; k < argc; ++k)
    104     ++k;
    105 #pragma omp target parallel for private() // expected-error {{expected expression}}
    106   for (int k = 0; k < argc; ++k)
    107     ++k;
    108 #pragma omp target parallel for private(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
    109   for (int k = 0; k < argc; ++k)
    110     ++k;
    111 #pragma omp target parallel for private(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    112   for (int k = 0; k < argc; ++k)
    113     ++k;
    114 #pragma omp target parallel for private(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
    115   for (int k = 0; k < argc; ++k)
    116     ++k;
    117 #pragma omp target parallel for private(argc)
    118   for (int k = 0; k < argc; ++k)
    119     ++k;
    120 #pragma omp target parallel for private(S1) // expected-error {{'S1' does not refer to a value}}
    121   for (int k = 0; k < argc; ++k)
    122     ++k;
    123 #pragma omp target parallel for private(a, b) // expected-error {{private variable with incomplete type 'S1'}}
    124   for (int k = 0; k < argc; ++k)
    125     ++k;
    126 #pragma omp target parallel for private(argv[1]) // expected-error {{expected variable name}}
    127   for (int k = 0; k < argc; ++k)
    128     ++k;
    129 #pragma omp target parallel for private(e, g)
    130   for (int k = 0; k < argc; ++k)
    131     ++k;
    132 #pragma omp target parallel for private(h) // expected-error {{threadprivate or thread local variable cannot be private}}
    133   for (int k = 0; k < argc; ++k)
    134     ++k;
    135 #pragma omp parallel
    136   {
    137     int v = 0;
    138     int i;
    139 #pragma omp target parallel for private(i)
    140     for (int k = 0; k < argc; ++k) {
    141       i = k;
    142       v += i;
    143     }
    144   }
    145 #pragma omp parallel shared(i)
    146 #pragma omp parallel private(i)
    147 #pragma omp target parallel for private(j)
    148   for (int k = 0; k < argc; ++k)
    149     ++k;
    150 #pragma omp target parallel for private(i)
    151   for (int k = 0; k < argc; ++k)
    152     ++k;
    153   return 0;
    154 }
    155 
    156 namespace A {
    157 double x;
    158 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
    159 }
    160 namespace B {
    161 using A::x;
    162 }
    163 
    164 int main(int argc, char **argv) {
    165   S4 e(4);
    166   S5 g(5);
    167   S6<float> s6(0.0) , s6_0(1.0);
    168   S7<S6<float> > s7(0.0) , s7_0(1.0);
    169   int i;
    170   int &j = i;
    171 #pragma omp target parallel for private // expected-error {{expected '(' after 'private'}}
    172   for (int k = 0; k < argc; ++k)
    173     ++k;
    174 #pragma omp target parallel for private( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    175   for (int k = 0; k < argc; ++k)
    176     ++k;
    177 #pragma omp target parallel for private() // expected-error {{expected expression}}
    178   for (int k = 0; k < argc; ++k)
    179     ++k;
    180 #pragma omp target parallel for private(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
    181   for (int k = 0; k < argc; ++k)
    182     ++k;
    183 #pragma omp target parallel for private(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    184   for (int k = 0; k < argc; ++k)
    185     ++k;
    186 #pragma omp target parallel for private(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
    187   for (int k = 0; k < argc; ++k)
    188     ++k;
    189 #pragma omp target parallel for private(argc)
    190   for (int k = 0; k < argc; ++k)
    191     ++k;
    192 #pragma omp target parallel for private(S1) // expected-error {{'S1' does not refer to a value}}
    193   for (int k = 0; k < argc; ++k)
    194     ++k;
    195 #pragma omp target parallel for private(a, b) // expected-error {{private variable with incomplete type 'S1'}}
    196   for (int k = 0; k < argc; ++k)
    197     ++k;
    198 #pragma omp target parallel for private(argv[1]) // expected-error {{expected variable name}}
    199   for (int k = 0; k < argc; ++k)
    200     ++k;
    201 #pragma omp target parallel for private(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
    202   for (int k = 0; k < argc; ++k)
    203     ++k;
    204 #pragma omp target parallel for private(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be private}}
    205   for (int k = 0; k < argc; ++k)
    206     ++k;
    207 #pragma omp parallel
    208   {
    209     int i;
    210 #pragma omp target parallel for private(i)
    211     for (int k = 0; k < argc; ++k)
    212       ++k;
    213   }
    214 #pragma omp parallel shared(i)
    215 #pragma omp parallel private(i)
    216 #pragma omp target parallel for private(j)
    217   for (int k = 0; k < argc; ++k)
    218     ++k;
    219 #pragma omp target parallel for private(i)
    220   for (int k = 0; k < argc; ++k)
    221     ++k;
    222   static int m;
    223 #pragma omp target parallel for private(m)
    224   for (int k = 0; k < argc; ++k)
    225     m = k + 2;
    226 
    227   s6 = s6_0; // expected-note {{in instantiation of member function 'S6<float>::operator=' requested here}}
    228   s7 = s7_0; // expected-note {{in instantiation of member function 'S7<S6<float> >::operator=' requested here}}
    229   return foomain(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<int, char>' requested here}}
    230 }
    231 
    232