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