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 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 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 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 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 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 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 parallel for private // expected-error {{expected '(' after 'private'}}
    100   for (int k = 0; k < argc; ++k)
    101     ++k;
    102 #pragma omp 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 parallel for private() // expected-error {{expected expression}}
    106   for (int k = 0; k < argc; ++k)
    107     ++k;
    108 #pragma omp 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 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 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 parallel for private(argc)
    118   for (int k = 0; k < argc; ++k)
    119     ++k;
    120 #pragma omp 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 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 parallel for private(argv[1]) // expected-error {{expected variable name}}
    127   for (int k = 0; k < argc; ++k)
    128     ++k;
    129 #pragma omp parallel for private(e, g)
    130   for (int k = 0; k < argc; ++k)
    131     ++k;
    132 #pragma omp 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 for nowait // expected-error {{unexpected OpenMP clause 'nowait' in directive '#pragma omp parallel for'}}
    136   for (int k = 0; k < argc; ++k)
    137     ++k;
    138 #pragma omp parallel
    139   {
    140     int v = 0;
    141     int i;
    142 #pragma omp parallel for private(i)
    143     for (int k = 0; k < argc; ++k) {
    144       i = k;
    145       v += i;
    146     }
    147   }
    148 #pragma omp parallel shared(i)
    149 #pragma omp parallel private(i)
    150 #pragma omp parallel for private(j)
    151   for (int k = 0; k < argc; ++k)
    152     ++k;
    153 #pragma omp parallel for private(i)
    154   for (int k = 0; k < argc; ++k)
    155     ++k;
    156   return 0;
    157 }
    158 
    159 namespace A {
    160 double x;
    161 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
    162 }
    163 namespace B {
    164 using A::x;
    165 }
    166 
    167 int main(int argc, char **argv) {
    168   S4 e(4);
    169   S5 g(5);
    170   S6<float> s6(0.0) , s6_0(1.0);
    171   S7<S6<float> > s7(0.0) , s7_0(1.0);
    172   int i;
    173   int &j = i;
    174 #pragma omp parallel for private // expected-error {{expected '(' after 'private'}}
    175   for (int k = 0; k < argc; ++k)
    176     ++k;
    177 #pragma omp parallel for private( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    178   for (int k = 0; k < argc; ++k)
    179     ++k;
    180 #pragma omp parallel for private() // expected-error {{expected expression}}
    181   for (int k = 0; k < argc; ++k)
    182     ++k;
    183 #pragma omp parallel for private(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
    184   for (int k = 0; k < argc; ++k)
    185     ++k;
    186 #pragma omp parallel for private(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
    187   for (int k = 0; k < argc; ++k)
    188     ++k;
    189 #pragma omp parallel for private(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
    190   for (int k = 0; k < argc; ++k)
    191     ++k;
    192 #pragma omp parallel for private(argc)
    193   for (int k = 0; k < argc; ++k)
    194     ++k;
    195 #pragma omp parallel for private(S1) // expected-error {{'S1' does not refer to a value}}
    196   for (int k = 0; k < argc; ++k)
    197     ++k;
    198 #pragma omp parallel for private(a, b) // expected-error {{private variable with incomplete type 'S1'}}
    199   for (int k = 0; k < argc; ++k)
    200     ++k;
    201 #pragma omp parallel for private(argv[1]) // expected-error {{expected variable name}}
    202   for (int k = 0; k < argc; ++k)
    203     ++k;
    204 #pragma omp parallel for private(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
    205   for (int k = 0; k < argc; ++k)
    206     ++k;
    207 #pragma omp parallel for private(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be private}}
    208   for (int k = 0; k < argc; ++k)
    209     ++k;
    210 #pragma omp parallel for nowait // expected-error {{unexpected OpenMP clause 'nowait' in directive '#pragma omp parallel for'}}
    211   for (int k = 0; k < argc; ++k)
    212     ++k;
    213 #pragma omp parallel
    214   {
    215     int i;
    216 #pragma omp parallel for private(i)
    217     for (int k = 0; k < argc; ++k)
    218       ++k;
    219   }
    220 #pragma omp parallel shared(i)
    221 #pragma omp parallel private(i)
    222 #pragma omp parallel for private(j)
    223   for (int k = 0; k < argc; ++k)
    224     ++k;
    225 #pragma omp parallel for private(i)
    226   for (int k = 0; k < argc; ++k)
    227     ++k;
    228   static int m;
    229 #pragma omp parallel for private(m)
    230   for (int k = 0; k < argc; ++k)
    231     m = k + 2;
    232 
    233   s6 = s6_0; // expected-note {{in instantiation of member function 'S6<float>::operator=' requested here}}
    234   s7 = s7_0; // expected-note {{in instantiation of member function 'S7<S6<float> >::operator=' requested here}}
    235   return foomain(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<int, char>' requested here}}
    236 }
    237 
    238