1 // RUN: %clang_cc1 -verify -fopenmp %s -Wno-openmp-mapping -Wuninitialized
2 
3 // RUN: %clang_cc1 -verify -fopenmp-simd %s -Wno-openmp-mapping -Wuninitialized
4 
5 extern int omp_default_mem_alloc;
6 void foo() {
7 }
8 
9 bool foobool(int argc) {
10   return argc;
11 }
12 
13 void xxx(int argc) {
14   int fp; // expected-note {{initialize the variable 'fp' to silence this warning}}
15 #pragma omp distribute parallel for simd firstprivate(fp) // expected-warning {{variable 'fp' is uninitialized when used here}}
16   for (int i = 0; i < 10; ++i)
17     ;
18 }
19 
20 struct S1; // expected-note 2 {{declared here}} expected-note 3 {{forward declaration of 'S1'}}
21 extern S1 a;
22 class S2 {
23   mutable int a;
24 
25 public:
26   S2() : a(0) {}
27   S2(const S2 &s2) : a(s2.a) {}
28   static float S2s;
29   static const float S2sc;
30 };
31 const float S2::S2sc = 0;
32 const S2 b;
33 const S2 ba[5];
34 class S3 {
35   int a;
36   S3 &operator=(const S3 &s3);
37 
38 public:
39   S3() : a(0) {}
40   S3(const S3 &s3) : a(s3.a) {}
41 };
42 const S3 c;
43 const S3 ca[5];
44 extern const int f;
45 class S4 {
46   int a;
47   S4();
48   S4(const S4 &s4); // expected-note 2 {{implicitly declared private here}}
49 
50 public:
51   S4(int v) : a(v) {}
52 };
53 class S5 {
54   int a;
55   S5(const S5 &s5) : a(s5.a) {} // expected-note 2 {{implicitly declared private here}}
56 
57 public:
58   S5() : a(0) {}
59   S5(int v) : a(v) {}
60 };
61 class S6 {
62   int a;
63   S6() : a(0) {} // expected-note {{implicitly declared private here}}
64 
65 public:
66   S6(const S6 &s6) : a(s6.a) {}
67   S6(int v) : a(v) {}
68 };
69 
70 S3 h;
71 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
72 
73 template <class I, class C>
74 int foomain(int argc, char **argv) {
75   I e(4);
76   C g(5);
77   int i, z;
78   int &j = i;
79 #pragma omp target
80 #pragma omp teams
81 #pragma omp distribute parallel for simd firstprivate // expected-error {{expected '(' after 'firstprivate'}}
82   for (int k = 0; k < argc; ++k)
83     ++k;
84 #pragma omp target
85 #pragma omp teams
86 #pragma omp distribute parallel for simd firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
87   for (int k = 0; k < argc; ++k)
88     ++k;
89 #pragma omp target
90 #pragma omp teams
91 #pragma omp distribute parallel for simd firstprivate() // expected-error {{expected expression}}
92   for (int k = 0; k < argc; ++k)
93     ++k;
94 #pragma omp target
95 #pragma omp teams
96 #pragma omp distribute parallel for simd firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
97   for (int k = 0; k < argc; ++k)
98     ++k;
99 #pragma omp target
100 #pragma omp teams
101 #pragma omp distribute parallel for simd firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
102   for (int k = 0; k < argc; ++k)
103     ++k;
104 #pragma omp target
105 #pragma omp teams
106 #pragma omp distribute parallel for simd firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
107   for (int k = 0; k < argc; ++k)
108     ++k;
109 #pragma omp target
110 #pragma omp teams
111 #pragma omp distribute parallel for simd firstprivate(argc, z)
112   for (int k = 0; k < argc; ++k)
113     ++k;
114 #pragma omp target
115 #pragma omp teams
116 #pragma omp distribute parallel for simd firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
117   for (int k = 0; k < argc; ++k)
118     ++k;
119 #pragma omp target
120 #pragma omp teams
121 #pragma omp distribute parallel for simd firstprivate(a, b) // expected-error {{firstprivate variable with incomplete type 'S1'}}
122   for (int k = 0; k < argc; ++k)
123     ++k;
124 #pragma omp target
125 #pragma omp teams
126 #pragma omp distribute parallel for simd firstprivate(argv[1]) // expected-error {{expected variable name}}
127   for (int k = 0; k < argc; ++k)
128     ++k;
129 #pragma omp target
130 #pragma omp teams
131 #pragma omp distribute parallel for simd firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
132   for (int k = 0; k < argc; ++k)
133     ++k;
134 #pragma omp target
135 #pragma omp teams
136 #pragma omp distribute parallel for simd firstprivate(h) // expected-error {{threadprivate or thread local variable cannot be firstprivate}}
137   for (int k = 0; k < argc; ++k)
138     ++k;
139 #pragma omp parallel
140   {
141     int v = 0;
142     int i;
143 #pragma omp target
144 #pragma omp teams
145 #pragma omp distribute parallel for simd firstprivate(i)
146     for (int k = 0; k < argc; ++k) {
147       i = k;
148       v += i;
149     }
150   }
151 #pragma omp parallel shared(i)
152 #pragma omp parallel private(i)
153 #pragma omp target
154 #pragma omp teams
155 #pragma omp distribute parallel for simd firstprivate(j)
156   for (int k = 0; k < argc; ++k)
157     ++k;
158 #pragma omp target
159 #pragma omp teams
160 #pragma omp distribute parallel for simd firstprivate(i)
161   for (int k = 0; k < argc; ++k)
162     ++k;
163 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}
164 #pragma omp target
165 #pragma omp teams
166 #pragma omp distribute parallel for simd lastprivate(g) firstprivate(g)
167   for (i = 0; i < argc; ++i)
168     foo();
169 #pragma omp parallel private(i)
170 #pragma omp target
171 #pragma omp teams
172 #pragma omp distribute parallel for simd firstprivate(i) // expected-note 2 {{defined as firstprivate}}
173   for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
174     foo();
175 #pragma omp parallel reduction(+ : i)
176 #pragma omp target
177 #pragma omp teams
178 #pragma omp distribute parallel for simd firstprivate(i) // expected-note 2 {{defined as firstprivate}}
179   for (i = 0; i < argc; ++i) // expected-error 2 {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
180     foo();
181   return 0;
182 }
183 
184 namespace A {
185 double x;
186 #pragma omp threadprivate(x) // expected-note {{defined as threadprivate or thread local}}
187 }
188 namespace B {
189 using A::x;
190 }
191 
192 int main(int argc, char **argv) {
193   const int d = 5;
194   const int da[5] = {0};
195   S4 e(4);
196   S5 g(5);
197   S3 m;
198   S6 n(2);
199   int i, z;
200   int &j = i;
201 #pragma omp target
202 #pragma omp teams
203 #pragma omp distribute parallel for simd firstprivate // expected-error {{expected '(' after 'firstprivate'}}
204   for (i = 0; i < argc; ++i)
205     foo();
206 #pragma omp target
207 #pragma omp teams
208 #pragma omp distribute parallel for simd firstprivate( // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
209   for (i = 0; i < argc; ++i)
210     foo();
211 #pragma omp target
212 #pragma omp teams
213 #pragma omp distribute parallel for simd firstprivate() // expected-error {{expected expression}}
214   for (i = 0; i < argc; ++i)
215     foo();
216 #pragma omp target
217 #pragma omp teams
218 #pragma omp distribute parallel for simd firstprivate(argc // expected-error {{expected ')'}} expected-note {{to match this '('}}
219   for (i = 0; i < argc; ++i)
220     foo();
221 #pragma omp target
222 #pragma omp teams
223 #pragma omp distribute parallel for simd firstprivate(argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
224   for (i = 0; i < argc; ++i)
225     foo();
226 #pragma omp target
227 #pragma omp teams
228 #pragma omp distribute parallel for simd firstprivate(argc > 0 ? argv[1] : argv[2]) // expected-error {{expected variable name}}
229   for (i = 0; i < argc; ++i)
230     foo();
231 #pragma omp target
232 #pragma omp teams
233 #pragma omp distribute parallel for simd firstprivate(argc) allocate , allocate(, allocate(omp_default , allocate(omp_default_mem_alloc, allocate(omp_default_mem_alloc:, allocate(omp_default_mem_alloc: argc, allocate(omp_default_mem_alloc: argv), allocate(argv) // expected-error {{expected '(' after 'allocate'}} expected-error 2 {{expected expression}} expected-error 2 {{expected ')'}} expected-error {{use of undeclared identifier 'omp_default'}} expected-note 2 {{to match this '('}}
234   for (i = 0; i < argc; ++i)
235     foo();
236 #pragma omp target
237 #pragma omp teams
238 #pragma omp distribute parallel for simd firstprivate(S1) // expected-error {{'S1' does not refer to a value}}
239   for (i = 0; i < argc; ++i)
240     foo();
241 #pragma omp target
242 #pragma omp teams
243 #pragma omp distribute parallel for simd firstprivate(a, b, c, d, f) // expected-error {{firstprivate variable with incomplete type 'S1'}} expected-error {{incomplete type 'S1' where a complete type is required}}
244   for (i = 0; i < argc; ++i)
245     foo();
246 #pragma omp target
247 #pragma omp teams
248 #pragma omp distribute parallel for simd firstprivate(argv[1]) // expected-error {{expected variable name}}
249   for (i = 0; i < argc; ++i)
250     foo();
251 #pragma omp target
252 #pragma omp teams
253 #pragma omp distribute parallel for simd firstprivate(2 * 2) // expected-error {{expected variable name}}
254   for (i = 0; i < argc; ++i)
255     foo();
256 #pragma omp target
257 #pragma omp teams
258 #pragma omp distribute parallel for simd firstprivate(ba, z) // OK
259   for (i = 0; i < argc; ++i)
260     foo();
261 #pragma omp target
262 #pragma omp teams
263 #pragma omp distribute parallel for simd firstprivate(ca) // OK
264   for (i = 0; i < argc; ++i)
265     foo();
266 #pragma omp target
267 #pragma omp teams
268 #pragma omp distribute parallel for simd firstprivate(da) // OK
269   for (i = 0; i < argc; ++i)
270     foo();
271   int xa;
272 #pragma omp target
273 #pragma omp teams
274 #pragma omp distribute parallel for simd firstprivate(xa) // OK
275   for (i = 0; i < argc; ++i)
276     foo();
277 #pragma omp target
278 #pragma omp teams
279 #pragma omp distribute parallel for simd firstprivate(S2::S2s) // OK
280   for (i = 0; i < argc; ++i)
281     foo();
282 #pragma omp target
283 #pragma omp teams
284 #pragma omp distribute parallel for simd firstprivate(S2::S2sc) // OK
285   for (i = 0; i < argc; ++i)
286     foo();
287 #pragma omp target
288 #pragma omp teams
289 #pragma omp distribute parallel for simd safelen(5) // OK
290   for (i = 0; i < argc; ++i)
291     foo();
292 #pragma omp target
293 #pragma omp teams
294 #pragma omp distribute parallel for simd firstprivate(e, g) // expected-error {{calling a private constructor of class 'S4'}} expected-error {{calling a private constructor of class 'S5'}}
295   for (i = 0; i < argc; ++i)
296     foo();
297 #pragma omp target
298 #pragma omp teams
299 #pragma omp distribute parallel for simd firstprivate(m) // OK
300   for (i = 0; i < argc; ++i)
301     foo();
302 #pragma omp target
303 #pragma omp teams
304 #pragma omp distribute parallel for simd firstprivate(h, B::x) // expected-error 2 {{threadprivate or thread local variable cannot be firstprivate}}
305   for (i = 0; i < argc; ++i)
306     foo();
307 #pragma omp target
308 #pragma omp teams
309 #pragma omp distribute parallel for simd private(xa), firstprivate(xa) // expected-error {{private variable cannot be firstprivate}} expected-note {{defined as private}}
310   for (i = 0; i < argc; ++i)
311     foo();
312 #pragma omp target
313 #pragma omp teams
314 #pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}
315   for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
316     foo();
317 #pragma omp parallel shared(xa)
318 #pragma omp target
319 #pragma omp teams
320 #pragma omp distribute parallel for simd firstprivate(xa) // OK: may be firstprivate
321   for (i = 0; i < argc; ++i)
322     foo();
323 #pragma omp target
324 #pragma omp teams
325 #pragma omp distribute parallel for simd firstprivate(j)
326   for (i = 0; i < argc; ++i)
327     foo();
328 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}
329 #pragma omp target
330 #pragma omp teams
331 #pragma omp distribute parallel for simd lastprivate(g) firstprivate(g)
332   for (i = 0; i < argc; ++i)
333     foo();
334 // expected-error@+3 {{lastprivate variable cannot be firstprivate}} expected-note@+3 {{defined as lastprivate}}
335 #pragma omp target
336 #pragma omp teams
337 #pragma omp distribute parallel for simd lastprivate(n) firstprivate(n) // expected-error {{calling a private constructor of class 'S6'}}
338   for (i = 0; i < argc; ++i)
339     foo();
340 #pragma omp parallel
341   {
342     int v = 0;
343     int i;
344 #pragma omp target
345 #pragma omp teams
346 #pragma omp distribute parallel for simd firstprivate(i)
347     for (int k = 0; k < argc; ++k) {
348       i = k;
349       v += i;
350     }
351   }
352 #pragma omp parallel private(i)
353 #pragma omp target
354 #pragma omp teams
355 #pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}
356   for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
357     foo();
358 #pragma omp parallel reduction(+ : i)
359 #pragma omp target
360 #pragma omp teams
361 #pragma omp distribute parallel for simd firstprivate(i) // expected-note {{defined as firstprivate}}
362   for (i = 0; i < argc; ++i) // expected-error {{loop iteration variable in the associated loop of 'omp distribute parallel for simd' directive may not be firstprivate, predetermined as linear}}
363     foo();
364   static int si;
365 #pragma omp target
366 #pragma omp teams
367 #pragma omp distribute parallel for simd firstprivate(si) // OK
368   for (i = 0; i < argc; ++i)
369     si = i + 1;
370 
371   return foomain<S4, S5>(argc, argv); // expected-note {{in instantiation of function template specialization 'foomain<S4, S5>' requested here}}
372 }
373