• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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:
S2()9   S2() : a(0) {}
10 };
11 const S2 b;
12 const S2 ba[5];
13 class S3 {
14   int a;
15 
16 public:
S3()17   S3() : a(0) {}
18 };
19 const S3 ca[5];
20 class S4 {
21   int a;
22   S4();
23 
24 public:
S4(int v)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;
S5()33   S5() : a(0) {}
34 
35 public:
S5(int v)36   S5(int v) : a(v) {}
operator =(S5 & s)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 
S6()50   S6() : a(0) {}
S6(T v)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   }
operator =(S6 & s)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;
S7()67   S7() : a(0) {}
68 
69 public:
S7(T v)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   }
operator =(S7 & s)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>
foomain(I argc,C ** argv)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 
bar(S4 a[2])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 
main(int argc,char ** argv)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