blob: 33bd38481bb26956025aac7c4ceac5c37caa1993 (
plain)
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
43
44
45
46
47
48
49
|
/* { dg-do run } */
/* { dg-additional-options "-foffload-options=nvptx-none=-misa=sm_35" { target { offload_target_nvptx } } } */
#pragma omp requires reverse_offload
int
main ()
{
int A[10];
int y;
for (int i = 0; i < 10; i++)
A[i] = 2*i;
y = 42;
/* Pointlessly copy to the default device. */
#pragma omp target data map(to: A)
{
/* Not enclosed in a target region (= i.e. running on the host); the
following is valid - it runs on the current device (= host). */
#pragma omp target device ( ancestor:1 ) firstprivate(y) map(to: A)
{
if (y != 42)
__builtin_abort ();
for (int i = 0; i < 10; i++)
if (A[i] != 2*i)
__builtin_abort ();
for (int i = 0; i < 10; i++)
if (A[i] != 2*i)
A[i] = 4*i;
y = 31;
}
if (y != 42)
__builtin_abort ();
for (int i = 0; i < 10; i++)
if (A[i] != 2*i)
__builtin_abort ();
}
if (y != 42)
__builtin_abort ();
for (int i = 0; i < 10; i++)
if (A[i] != 2*i)
__builtin_abort ();
return 0;
}
|
