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