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