diff options
Diffstat (limited to 'gcc/testsuite/c-c++-common/gomp/clauses-2.c')
-rw-r--r-- | gcc/testsuite/c-c++-common/gomp/clauses-2.c | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/gcc/testsuite/c-c++-common/gomp/clauses-2.c b/gcc/testsuite/c-c++-common/gomp/clauses-2.c new file mode 100644 index 0000000000..dff8bfebad --- /dev/null +++ b/gcc/testsuite/c-c++-common/gomp/clauses-2.c @@ -0,0 +1,53 @@ +struct S { int r; int *s; int t[10]; }; +void bar (int *); + +void +foo (int *p, int q, struct S t, int i, int j, int k, int l) +{ + #pragma omp target map (q), firstprivate (q) /* { dg-error "appears both in data and map clauses" } */ + bar (&q); + #pragma omp target map (p[0]) firstprivate (p) /* { dg-error "appears more than once in data clauses" } */ + bar (p); + #pragma omp target firstprivate (p), map (p[0]) /* { dg-error "appears more than once in data clauses" } */ + bar (p); + #pragma omp target map (p[0]) map (p) /* { dg-error "appears both in data and map clauses" } */ + bar (p); + #pragma omp target map (p) , map (p[0]) /* { dg-error "appears both in data and map clauses" } */ + bar (p); + #pragma omp target map (q) map (q) /* { dg-error "appears more than once in map clauses" } */ + bar (&q); + #pragma omp target map (p[0]) map (p[0]) /* { dg-error "appears more than once in data clauses" } */ + bar (p); + #pragma omp target map (t) map (t.r) /* { dg-error "appears more than once in map clauses" } */ + bar (&t.r); + #pragma omp target map (t.r) map (t) /* { dg-error "appears more than once in map clauses" } */ + bar (&t.r); + #pragma omp target map (t.r) map (t.r) /* { dg-error "appears more than once in map clauses" } */ + bar (&t.r); + #pragma omp target firstprivate (t), map (t.r) /* { dg-error "appears both in data and map clauses" } */ + bar (&t.r); + #pragma omp target map (t.r) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */ + bar (&t.r); + #pragma omp target map (t.s[0]) map (t) /* { dg-error "appears more than once in map clauses" } */ + bar (t.s); + #pragma omp target map (t) map(t.s[0]) /* { dg-error "appears more than once in map clauses" } */ + bar (t.s); + #pragma omp target firstprivate (t) map (t.s[0]) /* { dg-error "appears both in data and map clauses" } */ + bar (t.s); + #pragma omp target map (t.s[0]) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */ + bar (t.s); + #pragma omp target map (t.s[0]) map (t.s[2]) /* { dg-error "appears more than once in map clauses" } */ + bar (t.s); + #pragma omp target map (t.t[0:2]) map (t.t[4:6]) /* { dg-error "appears more than once in map clauses" } */ + bar (t.t); + #pragma omp target map (t.t[i:j]) map (t.t[k:l]) /* { dg-error "appears more than once in map clauses" } */ + bar (t.t); + #pragma omp target map (t.s[0]) map (t.r) + bar (t.s); + #pragma omp target map (t.r) ,map (t.s[0]) + bar (t.s); + #pragma omp target map (t.r) map (t) map (t.s[0]) firstprivate (t) /* { dg-error "appears both in data and map clauses" } */ + bar (t.s); + #pragma omp target map (t) map (t.r) firstprivate (t) map (t.s[0]) /* { dg-error "appears both in data and map clauses" } */ + bar (t.s); /* { dg-error "appears more than once in map clauses" "" { target *-*-* } 51 } */ +} |