1 // RUN: %clang_cc1 -verify -fopenmp %s
2
3 namespace X {
4 int x;
5 };
6
7 struct B {
8 static int ib; // expected-note {{'B::ib' declared here}}
bfooB9 static int bfoo() { return 8; }
10 };
11
bfoo()12 int bfoo() { return 4; }
13
14 int z;
15 const int C1 = 1;
16 const int C2 = 2;
test_linear_colons()17 void test_linear_colons()
18 {
19 int B = 0;
20
21 #pragma omp target
22 #pragma omp teams
23 #pragma omp distribute parallel for simd linear(B:bfoo())
24 for (int i = 0; i < 10; ++i) ;
25
26 #pragma omp target
27 #pragma omp teams
28 #pragma omp distribute parallel for simd linear(B::ib:B:bfoo()) // expected-error {{unexpected ':' in nested name specifier; did you mean '::'}}
29 for (int i = 0; i < 10; ++i) ;
30
31 #pragma omp target
32 #pragma omp teams
33 #pragma omp distribute parallel for simd linear(B:ib) // expected-error {{use of undeclared identifier 'ib'; did you mean 'B::ib'}}
34 for (int i = 0; i < 10; ++i) ;
35
36 #pragma omp target
37 #pragma omp teams
38 #pragma omp distribute parallel for simd linear(z:B:ib) // expected-error {{unexpected ':' in nested name specifier; did you mean '::'?}}
39 for (int i = 0; i < 10; ++i) ;
40
41 #pragma omp target
42 #pragma omp teams
43 #pragma omp distribute parallel for simd linear(B:B::bfoo())
44 for (int i = 0; i < 10; ++i) ;
45
46 #pragma omp target
47 #pragma omp teams
48 #pragma omp distribute parallel for simd linear(X::x : ::z)
49 for (int i = 0; i < 10; ++i) ;
50
51 #pragma omp target
52 #pragma omp teams
53 #pragma omp distribute parallel for simd linear(B,::z, X::x)
54 for (int i = 0; i < 10; ++i) ;
55
56 #pragma omp target
57 #pragma omp teams
58 #pragma omp distribute parallel for simd linear(::z)
59 for (int i = 0; i < 10; ++i) ;
60
61 #pragma omp target
62 #pragma omp teams
63 #pragma omp distribute parallel for simd linear(B::bfoo()) // expected-error {{expected variable name}}
64 for (int i = 0; i < 10; ++i) ;
65
66 #pragma omp target
67 #pragma omp teams
68 #pragma omp distribute parallel for simd linear(B::ib,B:C1+C2)
69 for (int i = 0; i < 10; ++i) ;
70 }
71
test_template(T * arr,N num)72 template<int L, class T, class N> T test_template(T* arr, N num) {
73 N i;
74 T sum = (T)0;
75 T ind2 = - num * L; // expected-note {{'ind2' defined here}}
76
77 #pragma omp target
78 #pragma omp teams
79 #pragma omp distribute parallel for simd linear(ind2:L) // expected-error {{argument of a linear clause should be of integral or pointer type}}
80 for (i = 0; i < num; ++i) {
81 T cur = arr[(int)ind2];
82 ind2 += L;
83 sum += cur;
84 }
85 return T();
86 }
87
test_warn()88 template<int LEN> int test_warn() {
89 int ind2 = 0;
90 #pragma omp target
91 #pragma omp teams
92 #pragma omp parallel for simd linear(ind2:LEN) // expected-warning {{zero linear step (ind2 should probably be const)}}
93 for (int i = 0; i < 100; i++) {
94 ind2 += LEN;
95 }
96 return ind2;
97 }
98
99 struct S1; // expected-note 2 {{declared here}} expected-note 2 {{forward declaration of 'S1'}}
100 extern S1 a;
101 class S2 {
102 mutable int a;
103 public:
S2()104 S2():a(0) { }
105 };
106 const S2 b; // expected-note 2 {{'b' defined here}}
107 const S2 ba[5];
108 class S3 {
109 int a;
110 public:
S3()111 S3():a(0) { }
112 };
113 const S3 ca[5];
114 class S4 {
115 int a;
116 S4();
117 public:
S4(int v)118 S4(int v):a(v) { }
119 };
120 class S5 {
121 int a;
S5()122 S5():a(0) {}
123 public:
S5(int v)124 S5(int v):a(v) { }
125 };
126
127 S3 h;
128 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
129
foomain(I argc,C ** argv)130 template<class I, class C> int foomain(I argc, C **argv) {
131 I e(4);
132 I g(5);
133 int i;
134 int &j = i;
135
136 #pragma omp target
137 #pragma omp teams
138 #pragma omp distribute parallel for simd linear // expected-error {{expected '(' after 'linear'}}
139 for (int k = 0; k < argc; ++k) ++k;
140
141 #pragma omp target
142 #pragma omp teams
143 #pragma omp distribute parallel for simd linear ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
144 for (int k = 0; k < argc; ++k) ++k;
145
146 #pragma omp target
147 #pragma omp teams
148 #pragma omp distribute parallel for simd linear () // expected-error {{expected expression}}
149 for (int k = 0; k < argc; ++k) ++k;
150
151 #pragma omp target
152 #pragma omp teams
153 #pragma omp distribute parallel for simd linear (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
154 for (int k = 0; k < argc; ++k) ++k;
155
156 #pragma omp target
157 #pragma omp teams
158 #pragma omp distribute parallel for simd linear (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
159 for (int k = 0; k < argc; ++k) ++k;
160
161 #pragma omp target
162 #pragma omp teams
163 #pragma omp distribute parallel for simd linear (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
164 for (int k = 0; k < argc; ++k) ++k;
165
166 #pragma omp target
167 #pragma omp teams
168 #pragma omp distribute parallel for simd linear (argc : 5)
169 for (int k = 0; k < argc; ++k) ++k;
170
171 #pragma omp target
172 #pragma omp teams
173 #pragma omp distribute parallel for simd linear (S1) // expected-error {{'S1' does not refer to a value}}
174 for (int k = 0; k < argc; ++k) ++k;
175
176 #pragma omp target
177 #pragma omp teams
178 #pragma omp distribute parallel for simd linear (a, b:B::ib) // expected-error {{linear variable with incomplete type 'S1'}} expected-error {{const-qualified variable cannot be linear}}
179 for (int k = 0; k < argc; ++k) ++k;
180
181 #pragma omp target
182 #pragma omp teams
183 #pragma omp distribute parallel for simd linear (argv[1]) // expected-error {{expected variable name}}
184 for (int k = 0; k < argc; ++k) ++k;
185
186 #pragma omp target
187 #pragma omp teams
188 #pragma omp distribute parallel for simd linear(e, g)
189 for (int k = 0; k < argc; ++k) ++k;
190
191 #pragma omp target
192 #pragma omp teams
193 #pragma omp distribute parallel for simd linear(h) // expected-error {{threadprivate or thread local variable cannot be linear}}
194 for (int k = 0; k < argc; ++k) ++k;
195
196 #pragma omp target
197 #pragma omp teams
198 #pragma omp distribute parallel for simd linear(i)
199 for (int k = 0; k < argc; ++k) ++k;
200
201 #pragma omp parallel
202 {
203 int v = 0;
204 int i;
205 #pragma omp target
206 #pragma omp teams
207 #pragma omp distribute parallel for simd linear(v:i)
208 for (int k = 0; k < argc; ++k) { i = k; v += i; }
209 }
210
211 #pragma omp target
212 #pragma omp teams
213 #pragma omp parallel for simd linear(j)
214 for (int k = 0; k < argc; ++k) ++k;
215
216 int v = 0;
217
218 #pragma omp target
219 #pragma omp teams
220 #pragma omp distribute parallel for simd linear(v:j)
221 for (int k = 0; k < argc; ++k) { ++k; v += j; }
222
223 #pragma omp target
224 #pragma omp teams
225 #pragma omp distribute parallel for simd linear(i)
226 for (int k = 0; k < argc; ++k) ++k;
227 return 0;
228 }
229
230 namespace A {
231 double x;
232 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
233 }
234 namespace C {
235 using A::x;
236 }
237
main(int argc,char ** argv)238 int main(int argc, char **argv) {
239 double darr[100];
240 // expected-note@+1 {{in instantiation of function template specialization 'test_template<-4, double, int>' requested here}}
241 test_template<-4>(darr, 4);
242 // expected-note@+1 {{in instantiation of function template specialization 'test_warn<0>' requested here}}
243 test_warn<0>();
244
245 S4 e(4); // expected-note {{'e' defined here}}
246 S5 g(5); // expected-note {{'g' defined here}}
247 int i;
248 int &j = i;
249
250 #pragma omp target
251 #pragma omp teams
252 #pragma omp distribute parallel for simd linear // expected-error {{expected '(' after 'linear'}}
253 for (int k = 0; k < argc; ++k) ++k;
254
255 #pragma omp target
256 #pragma omp teams
257 #pragma omp distribute parallel for simd linear ( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
258 for (int k = 0; k < argc; ++k) ++k;
259
260 #pragma omp target
261 #pragma omp teams
262 #pragma omp distribute parallel for simd linear () // expected-error {{expected expression}}
263 for (int k = 0; k < argc; ++k) ++k;
264
265 #pragma omp target
266 #pragma omp teams
267 #pragma omp distribute parallel for simd linear (argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
268 for (int k = 0; k < argc; ++k) ++k;
269
270 #pragma omp target
271 #pragma omp teams
272 #pragma omp distribute parallel for simd linear (argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
273 for (int k = 0; k < argc; ++k) ++k;
274
275 #pragma omp target
276 #pragma omp teams
277 #pragma omp distribute parallel for simd linear (argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
278 for (int k = 0; k < argc; ++k) ++k;
279
280 #pragma omp target
281 #pragma omp teams
282 #pragma omp distribute parallel for simd linear (argc)
283 for (int k = 0; k < argc; ++k) ++k;
284
285 #pragma omp target
286 #pragma omp teams
287 #pragma omp distribute parallel for simd linear (S1) // expected-error {{'S1' does not refer to a value}}
288 for (int k = 0; k < argc; ++k) ++k;
289
290
291 #pragma omp target
292 #pragma omp teams
293 #pragma omp distribute parallel for simd linear (a, b) // expected-error {{linear variable with incomplete type 'S1'}} expected-error {{const-qualified variable cannot be linear}}
294 for (int k = 0; k < argc; ++k) ++k;
295
296 #pragma omp target
297 #pragma omp teams
298 #pragma omp distribute parallel for simd linear (argv[1]) // expected-error {{expected variable name}}
299 for (int k = 0; k < argc; ++k) ++k;
300
301 #pragma omp target
302 #pragma omp teams
303 #pragma omp distribute parallel for simd linear(e, g) // expected-error {{argument of a linear clause should be of integral or pointer type, not 'S4'}} expected-error {{argument of a linear clause should be of integral or pointer type, not 'S5'}}
304 for (int k = 0; k < argc; ++k) ++k;
305
306 #pragma omp target
307 #pragma omp teams
308 #pragma omp distribute parallel for simd linear(h, C::x) // expected-error 2 {{threadprivate or thread local variable cannot be linear}}
309 for (int k = 0; k < argc; ++k) ++k;
310
311 #pragma omp parallel
312 {
313 int i;
314 #pragma omp target
315 #pragma omp teams
316 #pragma omp distribute parallel for simd linear(i)
317 for (int k = 0; k < argc; ++k) ++k;
318
319 #pragma omp target
320 #pragma omp teams
321 #pragma omp distribute parallel for simd linear(i : 4)
322 for (int k = 0; k < argc; ++k) { ++k; i += 4; }
323 }
324
325 #pragma omp target
326 #pragma omp teams
327 #pragma omp distribute parallel for simd linear(j)
328 for (int k = 0; k < argc; ++k) ++k;
329
330 #pragma omp target
331 #pragma omp teams
332 #pragma omp distribute parallel for simd linear(i)
333 for (int k = 0; k < argc; ++k) ++k;
334
335 foomain<int,char>(argc,argv); // expected-note {{in instantiation of function template specialization 'foomain<int, char>' requested here}}
336 return 0;
337 }
338
339