1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
/* { dg-do compile } */
void
foo (void)
{
int a[4] = { 1, 2, 3, 4 };
int *p = &a[0];
int x = 5;
#pragma omp target data map(to:p[:4])
#pragma omp target data use_device_ptr(p)
#pragma omp target is_device_ptr(p)
{
p[0]++;
}
#pragma omp target data map(to:a)
#pragma omp target data use_device_addr(a)
#pragma omp target is_device_ptr(a)
{
p[0]++;
}
#pragma omp target data map(to:x)
#pragma omp target data use_device_addr(x)
{
int *q = &x;
#pragma omp target is_device_ptr(q)
{
q[0]++;
}
}
#pragma omp target data /* { dg-error "must contain at least one" } */
a[0]++;
#pragma omp target data map(to:p)
#pragma omp target data use_device_ptr(p) use_device_ptr(p) /* { dg-error "appears more than once in data clauses" } */
a[0]++;
#pragma omp target data map(to:a)
#pragma omp target data use_device_addr(a) use_device_addr(a) /* { dg-error "appears more than once in data clauses" } */
a[0]++;
#pragma omp target data map(to:a)
#pragma omp target data use_device_ptr(a) /* { dg-error "'use_device_ptr' variable is not a pointer" "" { target c } } */
/* { dg-error "'use_device_ptr' variable is neither a pointer nor reference to pointer" "" { target c++ } .-1 } */
a[0]++; /* { dg-error "must contain at least one" "" { target *-*-* } .-2 } */
}
|
