1 // RUN: %clang_cc1 -verify -fopenmp -ferror-limit 200 %s
2 // RUN: %clang_cc1 -DCCODE -verify -fopenmp -ferror-limit 200 -x c %s
3 #ifdef CCODE
4 void foo(int arg) {
5   const int n = 0;
6 
7   double marr[10][10][10];
8 
9   #pragma omp target map(marr[2][0:2][0:2]) // expected-error {{array section does not specify contiguous storage}}
10   {}
11   #pragma omp target map(marr[:][0:][:])
12   {}
13   #pragma omp target map(marr[:][1:][:]) // expected-error {{array section does not specify contiguous storage}}
14   {}
15   #pragma omp target map(marr[:][n:][:])
16   {}
17 }
18 #else
19 template <typename T, int I>
20 struct SA {
21   static int ss;
22   #pragma omp threadprivate(ss) // expected-note {{defined as threadprivate or thread local}}
23   float a;
24   int b[12];
25   float *c;
26   T d;
27   float e[I];
28   T *f;
29   void func(int arg) {
30     #pragma omp target map(arg,a,d)
31     {}
32     #pragma omp target map(arg[2:2],a,d) // expected-error {{subscripted value is not an array or pointer}}
33     {}
34     #pragma omp target map(arg,a*2) // expected-error {{expected expression containing only member accesses and/or array sections based on named variables}}
35     {}
36     #pragma omp target map(arg,(c+1)[2]) // expected-error {{expected expression containing only member accesses and/or array sections based on named variables}}
37     {}
38     #pragma omp target map(arg,a[:2],d) // expected-error {{subscripted value is not an array or pointer}}
39     {}
40     #pragma omp target map(arg,a,d[:2]) // expected-error {{subscripted value is not an array or pointer}}
41     {}
42 
43     #pragma omp target map(to:ss) // expected-error {{threadprivate variables are not allowed in 'map' clause}}
44     {}
45 
46     #pragma omp target map(to:b,e)
47     {}
48     #pragma omp target map(to:b,e) map(to:b) // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
49     {}
50     #pragma omp target map(to:b[:2],e)
51     {}
52     #pragma omp target map(to:b,e[:])
53     {}
54     #pragma omp target map(b[-1:]) // expected-error {{array section must be a subset of the original array}}
55     {}
56     #pragma omp target map(b[:-1]) // expected-error {{section length is evaluated to a negative value -1}}
57     {}
58 
59     #pragma omp target map(always, tofrom: c,f)
60     {}
61     #pragma omp target map(always, tofrom: c[1:2],f)
62     {}
63     #pragma omp target map(always, tofrom: c,f[1:2])
64     {}
65     #pragma omp target map(always, tofrom: c[:],f)   // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
66     {}
67     #pragma omp target map(always, tofrom: c,f[:])   // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
68     {}
69     return;
70   }
71 };
72 
73 struct SB {
74   unsigned A;
75   unsigned B;
76   float Arr[100];
77   float *Ptr;
78   float *foo() {
79     return &Arr[0];
80   }
81 };
82 
83 struct SC {
84   unsigned A : 2;
85   unsigned B : 3;
86   unsigned C;
87   unsigned D;
88   float Arr[100];
89   SB S;
90   SB ArrS[100];
91   SB *PtrS;
92   SB *&RPtrS;
93   float *Ptr;
94 
95   SC(SB *&_RPtrS) : RPtrS(_RPtrS) {}
96 };
97 
98 union SD {
99   unsigned A;
100   float B;
101 };
102 
103 void SAclient(int arg) {
104   SA<int,123> s;
105   s.func(arg); // expected-note {{in instantiation of member function}}
106   double marr[10][10][10];
107   double marr2[5][10][1];
108   double mvla[5][arg][10];
109   double ***mptr;
110   const int n = 0;
111   const int m = 1;
112   double mvla2[5][arg][m+n+10];
113 
114   SB *p;
115 
116   SD u;
117   SC r(p),t(p);
118   #pragma omp target map(r)
119   {}
120   #pragma omp target map(marr[2][0:2][0:2]) // expected-error {{array section does not specify contiguous storage}}
121   {}
122   #pragma omp target map(marr[:][0:2][0:2]) // expected-error {{array section does not specify contiguous storage}}
123   {}
124   #pragma omp target map(marr[2][3][0:2])
125   {}
126   #pragma omp target map(marr[:][:][:])
127   {}
128   #pragma omp target map(marr[:2][:][:])
129   {}
130   #pragma omp target map(marr[arg:][:][:])
131   {}
132   #pragma omp target map(marr[arg:])
133   {}
134   #pragma omp target map(marr[arg:][:arg][:]) // correct if arg is the size of dimension 2
135   {}
136   #pragma omp target map(marr[:arg][:])
137   {}
138   #pragma omp target map(marr[:arg][n:])
139   {}
140   #pragma omp target map(marr[:][:arg][n:]) // correct if arg is the size of  dimension 2
141   {}
142   #pragma omp target map(marr[:][:m][n:]) // expected-error {{array section does not specify contiguous storage}}
143   {}
144   #pragma omp target map(marr[n:m][:arg][n:])
145   {}
146   #pragma omp target map(marr[:2][:1][:]) // expected-error {{array section does not specify contiguous storage}}
147   {}
148   #pragma omp target map(marr[:2][1:][:]) // expected-error {{array section does not specify contiguous storage}}
149   {}
150   #pragma omp target map(marr[:2][:][:1]) // expected-error {{array section does not specify contiguous storage}}
151   {}
152   #pragma omp target map(marr[:2][:][1:]) // expected-error {{array section does not specify contiguous storage}}
153   {}
154   #pragma omp target map(marr[:1][:2][:])
155   {}
156   #pragma omp target map(marr[:1][0][:])
157   {}
158   #pragma omp target map(marr[:arg][:2][:]) // correct if arg is 1
159   {}
160   #pragma omp target map(marr[:1][3:1][:2])
161   {}
162   #pragma omp target map(marr[:1][3:arg][:2]) // correct if arg is 1
163   {}
164   #pragma omp target map(marr[:1][3:2][:2]) // expected-error {{array section does not specify contiguous storage}}
165   {}
166   #pragma omp target map(marr[:2][:10][:])
167   {}
168   #pragma omp target map(marr[:2][:][:5+5])
169   {}
170   #pragma omp target map(marr[:2][2+2-4:][0:5+5])
171   {}
172 
173   #pragma omp target map(marr[:1][:2][0]) // expected-error {{array section does not specify contiguous storage}}
174   {}
175   #pragma omp target map(marr2[:1][:2][0])
176   {}
177 
178   #pragma omp target map(mvla[:1][:][0]) // correct if the size of dimension 2 is 1.
179   {}
180   #pragma omp target map(mvla[:2][:arg][:]) // correct if arg is the size of dimension 2.
181   {}
182   #pragma omp target map(mvla[:1][:2][0]) // expected-error {{array section does not specify contiguous storage}}
183    {}
184   #pragma omp target map(mvla[1][2:arg][:])
185   {}
186   #pragma omp target map(mvla[:1][:][:])
187   {}
188   #pragma omp target map(mvla2[:1][:2][:11])
189   {}
190   #pragma omp target map(mvla2[:1][:2][:10]) // expected-error {{array section does not specify contiguous storage}}
191   {}
192 
193   #pragma omp target map(mptr[:2][2+2-4:1][0:5+5]) // expected-error {{array section does not specify contiguous storage}}
194   {}
195   #pragma omp target map(mptr[:1][:2-1][2:4-3])
196   {}
197   #pragma omp target map(mptr[:1][:arg][2:4-3]) // correct if arg is 1.
198   {}
199   #pragma omp target map(mptr[:1][:2-1][0:2])
200   {}
201   #pragma omp target map(mptr[:1][:2][0:2]) // expected-error {{array section does not specify contiguous storage}}
202   {}
203   #pragma omp target map(mptr[:1][:][0:2]) // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
204   {}
205   #pragma omp target map(mptr[:2][:1][0:2]) // expected-error {{array section does not specify contiguous storage}}
206   {}
207 
208   #pragma omp target map(r.ArrS[0].B)
209   {}
210   #pragma omp target map(r.ArrS[:1].B) // expected-error {{OpenMP array section is not allowed here}}
211   {}
212   #pragma omp target map(r.ArrS[:arg].B) // expected-error {{OpenMP array section is not allowed here}}
213   {}
214   #pragma omp target map(r.ArrS[0].Arr[1:23])
215   {}
216   #pragma omp target map(r.ArrS[0].Arr[1:arg])
217   {}
218   #pragma omp target map(r.ArrS[0].Arr[arg:23])
219   {}
220   #pragma omp target map(r.ArrS[0].Error) // expected-error {{no member named 'Error' in 'SB'}}
221   {}
222   #pragma omp target map(r.ArrS[0].A, r.ArrS[1].A) // expected-error {{multiple array elements associated with the same variable are not allowed in map clauses of the same construct}} expected-note {{used here}}
223   {}
224   #pragma omp target map(r.ArrS[0].A, t.ArrS[1].A)
225   {}
226   #pragma omp target map(r.PtrS[0], r.PtrS->B) // expected-error {{same pointer derreferenced in multiple different ways in map clause expressions}} expected-note {{used here}}
227   {}
228   #pragma omp target map(r.RPtrS[0], r.RPtrS->B) // expected-error {{same pointer derreferenced in multiple different ways in map clause expressions}} expected-note {{used here}}
229   {}
230   #pragma omp target map(r.S.Arr[:12])
231   {}
232   #pragma omp target map(r.S.foo()[:12]) // expected-error {{expected expression containing only member accesses and/or array sections based on named variables}}
233   {}
234   #pragma omp target map(r.C, r.D)
235   {}
236   #pragma omp target map(r.C, r.C) // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
237   {}
238   #pragma omp target map(r.C) map(r.C) // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
239   {}
240   #pragma omp target map(r.C, r.S)  // this would be an error only caught at runtime - Sema would have to make sure there is not way for the missing data between fields to be mapped somewhere else.
241   {}
242   #pragma omp target map(r, r.S)  // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
243   {}
244   #pragma omp target map(r.C, t.C)
245   {}
246   #pragma omp target map(r.A)   // expected-error {{bit fields cannot be used to specify storage in a 'map' clause}}
247   {}
248   #pragma omp target map(r.Arr)
249   {}
250   #pragma omp target map(r.Arr[3:5])
251   {}
252   #pragma omp target map(r.Ptr[3:5])
253   {}
254   #pragma omp target map(r.ArrS[3:5].A)   // expected-error {{OpenMP array section is not allowed here}}
255   {}
256   #pragma omp target map(r.ArrS[3:5].Arr[6:7])   // expected-error {{OpenMP array section is not allowed here}}
257   {}
258   #pragma omp target map(r.ArrS[3].Arr[6:7])
259   {}
260   #pragma omp target map(r.S.Arr[4:5])
261   {}
262   #pragma omp target map(r.S.Ptr[4:5])
263   {}
264   #pragma omp target map(r.S.Ptr[:])  // expected-error {{section length is unspecified and cannot be inferred because subscripted value is not an array}}
265   {}
266   #pragma omp target map((p+1)->A)  // expected-error {{expected expression containing only member accesses and/or array sections based on named variables}}
267   {}
268   #pragma omp target map(u.B)  // expected-error {{mapped storage cannot be derived from a union}}
269   {}
270 
271   #pragma omp target data map(to: r.C) //expected-note {{used here}}
272   {
273     #pragma omp target map(r.D)  // expected-error {{original storage of expression in data environment is shared but data environment do not fully contain mapped expression storage}}
274     {}
275   }
276 
277   #pragma omp target data map(to: t.Ptr) //expected-note {{used here}}
278   {
279     #pragma omp target map(t.Ptr[:23])  // expected-error {{pointer cannot be mapped along with a section derived from itself}}
280     {}
281   }
282 
283   #pragma omp target data map(to: t.C, t.D)
284   {
285   #pragma omp target data map(to: t.C)
286   {
287     #pragma omp target map(t.D)
288     {}
289   }
290   }
291   #pragma omp target data map(marr[:][:][:])
292   {
293     #pragma omp target data map(marr)
294     {}
295   }
296 
297   #pragma omp target data map(to: t)
298   {
299   #pragma omp target data map(to: t.C)
300   {
301     #pragma omp target map(t.D)
302     {}
303   }
304   }
305 }
306 void foo() {
307 }
308 
309 bool foobool(int argc) {
310   return argc;
311 }
312 
313 struct S1; // expected-note 2 {{declared here}}
314 extern S1 a;
315 class S2 {
316   mutable int a;
317 public:
318   S2():a(0) { }
319   S2(S2 &s2):a(s2.a) { }
320   static float S2s; // expected-note 4 {{mappable type cannot contain static members}}
321   static const float S2sc; // expected-note 4 {{mappable type cannot contain static members}}
322 };
323 const float S2::S2sc = 0;
324 const S2 b;
325 const S2 ba[5];
326 class S3 {
327   int a;
328 public:
329   S3():a(0) { }
330   S3(S3 &s3):a(s3.a) { }
331 };
332 const S3 c;
333 const S3 ca[5];
334 extern const int f;
335 class S4 {
336   int a;
337   S4();
338   S4(const S4 &s4);
339 public:
340   S4(int v):a(v) { }
341 };
342 class S5 {
343   int a;
344   S5():a(0) {}
345   S5(const S5 &s5):a(s5.a) { }
346 public:
347   S5(int v):a(v) { }
348 };
349 
350 template <class T>
351 struct S6;
352 
353 template<>
354 struct S6<int>  // expected-note {{mappable type cannot be polymorphic}}
355 {
356    virtual void foo();
357 };
358 
359 S3 h;
360 #pragma omp threadprivate(h) // expected-note 2 {{defined as threadprivate or thread local}}
361 
362 typedef int from;
363 
364 template <typename T, int I> // expected-note {{declared here}}
365 T tmain(T argc) {
366   const T d = 5;
367   const T da[5] = { 0 };
368   S4 e(4);
369   S5 g(5);
370   T i, t[20];
371   T &j = i;
372   T *k = &j;
373   T x;
374   T y;
375   T to, tofrom, always;
376   const T (&l)[5] = da;
377 #pragma omp target map // expected-error {{expected '(' after 'map'}}
378   {}
379 #pragma omp target map( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}}
380   {}
381 #pragma omp target map() // expected-error {{expected expression}}
382   {}
383 #pragma omp target map(alloc) // expected-error {{use of undeclared identifier 'alloc'}}
384   {}
385 #pragma omp target map(to argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected ',' or ')' in 'map' clause}}
386   {}
387 #pragma omp target map(to:) // expected-error {{expected expression}}
388   {}
389 #pragma omp target map(from: argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
390   {}
391 #pragma omp target map(x: y) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}}
392   {}
393 #pragma omp target map(x)
394   foo();
395 #pragma omp target map(tofrom: t[:I])
396   foo();
397 #pragma omp target map(T: a) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}} expected-error {{incomplete type 'S1' where a complete type is required}}
398   foo();
399 #pragma omp target map(T) // expected-error {{'T' does not refer to a value}}
400   foo();
401 #pragma omp target map(I) // expected-error 2 {{expected expression containing only member accesses and/or array sections based on named variables}}
402   foo();
403 #pragma omp target map(S2::S2s)
404   foo();
405 #pragma omp target map(S2::S2sc)
406   foo();
407 #pragma omp target map(x)
408   foo();
409 #pragma omp target map(to: x)
410   foo();
411 #pragma omp target map(to: to)
412   foo();
413 #pragma omp target map(to)
414   foo();
415 #pragma omp target map(to, x)
416   foo();
417 #pragma omp target data map(to x) // expected-error {{expected ',' or ')' in 'map' clause}}
418 #pragma omp target data map(tofrom: argc > 0 ? x : y) // expected-error 2 {{expected expression containing only member accesses and/or array sections based on named variables}}
419 #pragma omp target data map(argc)
420 #pragma omp target data map(S1) // expected-error {{'S1' does not refer to a value}}
421 #pragma omp target data map(a, b, c, d, f) // expected-error {{incomplete type 'S1' where a complete type is required}} expected-error 2 {{type 'S2' is not mappable to target}}
422 #pragma omp target data map(ba) // expected-error 2 {{type 'S2' is not mappable to target}}
423 #pragma omp target data map(ca)
424 #pragma omp target data map(da)
425 #pragma omp target data map(S2::S2s)
426 #pragma omp target data map(S2::S2sc)
427 #pragma omp target data map(e, g)
428 #pragma omp target data map(h) // expected-error {{threadprivate variables are not allowed in 'map' clause}}
429 #pragma omp target data map(k) map(k) // expected-error 2 {{variable already marked as mapped in current construct}} expected-note 2 {{used here}}
430 #pragma omp target map(k), map(k[:5]) // expected-error 2 {{pointer cannot be mapped along with a section derived from itself}} expected-note 2 {{used here}}
431   foo();
432 #pragma omp target data map(da)
433 #pragma omp target map(da[:4])
434   foo();
435 #pragma omp target data map(k, j, l) // expected-note 2 {{used here}}
436 #pragma omp target data map(k[:4]) // expected-error 2 {{pointer cannot be mapped along with a section derived from itself}}
437 #pragma omp target data map(j)
438 #pragma omp target map(l) map(l[:5]) // expected-error 2 {{variable already marked as mapped in current construct}} expected-note 2 {{used here}}
439   foo();
440 #pragma omp target data map(k[:4], j, l[:5]) // expected-note 2 {{used here}}
441 #pragma omp target data map(k) // expected-error 2 {{pointer cannot be mapped along with a section derived from itself}}
442 #pragma omp target data map(j)
443 #pragma omp target map(l)
444   foo();
445 
446 #pragma omp target data map(always, tofrom: x)
447 #pragma omp target data map(always: x) // expected-error {{missing map type}}
448 #pragma omp target data map(tofrom, always: x) // expected-error {{incorrect map type modifier, expected 'always'}} expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}}
449 #pragma omp target data map(always, tofrom: always, tofrom, x)
450 #pragma omp target map(tofrom j) // expected-error {{expected ',' or ')' in 'map' clause}}
451   foo();
452   return 0;
453 }
454 
455 int main(int argc, char **argv) {
456   const int d = 5;
457   const int da[5] = { 0 };
458   S4 e(4);
459   S5 g(5);
460   int i;
461   int &j = i;
462   int *k = &j;
463   S6<int> m;
464   int x;
465   int y;
466   int to, tofrom, always;
467   const int (&l)[5] = da;
468 #pragma omp target data map // expected-error {{expected '(' after 'map'}} expected-error {{expected at least one map clause for '#pragma omp target data'}}
469 #pragma omp target data map( // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected expression}}
470 #pragma omp target data map() // expected-error {{expected expression}}
471 #pragma omp target data map(alloc) // expected-error {{use of undeclared identifier 'alloc'}}
472 #pragma omp target data map(to argc // expected-error {{expected ')'}} expected-note {{to match this '('}} expected-error {{expected ',' or ')' in 'map' clause}}
473 #pragma omp target data map(to:) // expected-error {{expected expression}}
474 #pragma omp target data map(from: argc, // expected-error {{expected expression}} expected-error {{expected ')'}} expected-note {{to match this '('}}
475 #pragma omp target data map(x: y) // expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}}
476 #pragma omp target map(x)
477   foo();
478 #pragma omp target map(to: x)
479   foo();
480 #pragma omp target map(to: to)
481   foo();
482 #pragma omp target map(to)
483   foo();
484 #pragma omp target map(to, x)
485   foo();
486 #pragma omp target data map(to x) // expected-error {{expected ',' or ')' in 'map' clause}}
487 #pragma omp target data map(tofrom: argc > 0 ? argv[1] : argv[2]) // expected-error {{xpected expression containing only member accesses and/or array sections based on named variables}}
488 #pragma omp target data map(argc)
489 #pragma omp target data map(S1) // expected-error {{'S1' does not refer to a value}}
490 #pragma omp target data map(a, b, c, d, f) // expected-error {{incomplete type 'S1' where a complete type is required}} expected-error 2 {{type 'S2' is not mappable to target}}
491 #pragma omp target data map(argv[1])
492 #pragma omp target data map(ba) // expected-error 2 {{type 'S2' is not mappable to target}}
493 #pragma omp target data map(ca)
494 #pragma omp target data map(da)
495 #pragma omp target data map(S2::S2s)
496 #pragma omp target data map(S2::S2sc)
497 #pragma omp target data map(e, g)
498 #pragma omp target data map(h) // expected-error {{threadprivate variables are not allowed in 'map' clause}}
499 #pragma omp target data map(k), map(k) // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
500 #pragma omp target map(k), map(k[:5]) // expected-error {{pointer cannot be mapped along with a section derived from itself}} expected-note {{used here}}
501   foo();
502 #pragma omp target data map(da)
503 #pragma omp target map(da[:4])
504   foo();
505 #pragma omp target data map(k, j, l) // expected-note {{used here}}
506 #pragma omp target data map(k[:4]) // expected-error {{pointer cannot be mapped along with a section derived from itself}}
507 #pragma omp target data map(j)
508 #pragma omp target map(l) map(l[:5]) // expected-error {{variable already marked as mapped in current construct}} expected-note {{used here}}
509   foo();
510 #pragma omp target data map(k[:4], j, l[:5]) // expected-note {{used here}}
511 #pragma omp target data map(k) // expected-error {{pointer cannot be mapped along with a section derived from itself}}
512 #pragma omp target data map(j)
513 #pragma omp target map(l)
514   foo();
515 
516 #pragma omp target data map(always, tofrom: x)
517 #pragma omp target data map(always: x) // expected-error {{missing map type}}
518 #pragma omp target data map(tofrom, always: x) // expected-error {{incorrect map type modifier, expected 'always'}} expected-error {{incorrect map type, expected one of 'to', 'from', 'tofrom', 'alloc', 'release', or 'delete'}}
519 #pragma omp target data map(always, tofrom: always, tofrom, x)
520 #pragma omp target map(tofrom j) // expected-error {{expected ',' or ')' in 'map' clause}}
521   foo();
522 #pragma omp target private(j) map(j) // expected-error {{private variable cannot be in a map clause in '#pragma omp target' directive}}  expected-note {{defined as private}}
523   {}
524 #pragma omp target firstprivate(j) map(j)  // expected-error {{firstprivate variable cannot be in a map clause in '#pragma omp target' directive}} expected-note {{defined as firstprivate}}
525   {}
526 #pragma omp target map(m) // expected-error {{type 'S6<int>' is not mappable to target}}
527   {}
528   return tmain<int, 3>(argc)+tmain<from, 4>(argc); // expected-note {{in instantiation of function template specialization 'tmain<int, 3>' requested here}} expected-note {{in instantiation of function template specialization 'tmain<int, 4>' requested here}}
529 }
530 #endif
531