1 /* { dg-skip-if "PR 68733" { hppa*-*-hpux* && { ! lp64 } } } */
2 struct S
{ int r
; int *s
; int t
[10]; };
6 foo (int *p
, int q
, struct S t
, int i
, int j
, int k
, int l
)
8 #pragma omp target map (q), firstprivate (q) /* { dg-error "appears both in data and map clauses" } */
10 #pragma omp target map (p[0]) firstprivate (p) /* { dg-error "appears more than once in data clauses" } */
12 #pragma omp target firstprivate (p), map (p[0]) /* { dg-error "appears more than once in data clauses" } */
14 #pragma omp target map (p[0]) map (p)
16 #pragma omp target map (p) , map (p[0])
18 #pragma omp target map (q) map (q) /* { dg-error "appears more than once in map clauses" } */
20 #pragma omp target map (p[0]) map (p[0]) /* { dg-error "appears more than once in data clauses" } */
22 #pragma omp target map (t) map (t.r)
24 #pragma omp target map (t.r) map (t)
26 #pragma omp target map (t.r) map (t.r)
28 #pragma omp target firstprivate (t), map (t.r) /* { dg-error "appears both in data and map clauses" } */
30 #pragma omp target map (t.r) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */
32 #pragma omp target map (t.s[0]) map (t)
34 #pragma omp target map (t) map(t.s[0])
36 #pragma omp target firstprivate (t) map (t.s[0]) /* { dg-error "appears both in data and map clauses" } */
38 #pragma omp target map (t.s[0]) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */
40 #pragma omp target map (t.s[0]) map (t.s[2])
42 #pragma omp target map (t.t[0:2]) map (t.t[4:6])
44 #pragma omp target map (t.t[i:j]) map (t.t[k:l])
46 #pragma omp target map (t.s[0]) map (t.r)
48 #pragma omp target map (t.r) ,map (t.s[0])
50 #pragma omp target map (t.r) map (t) map (t.s[0]) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */
52 #pragma omp target map (t) map (t.r) firstprivate (t) map (t.s[0]) /* { dg-error "appears both in data and map clauses" } */