blob: 4a762012eaf7a57b284b667ce0e95bd36ae3b0a7 (
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
extern void abort (void);
void
foo (int n)
{
int a[n], i, err;
for (i = 0; i < n; i++)
a[i] = 5 * i;
#pragma omp target map(to:a) map(from:err) private(i)
{
err = 0;
for (i = 0; i < n; i++)
if (a[i] != 5 * i)
err = 1;
}
if (err)
abort ();
for (i = 0; i < n; i++)
a[i] += i;
#pragma omp target map(from:err) private(i)
{
err = 0;
for (i = 0; i < n; i++)
if (a[i] != 6 * i)
err = 1;
}
if (err)
abort ();
for (i = 0; i < n; i++)
a[i] += i;
#pragma omp target firstprivate (a) map(from:err) private(i)
{
err = 0;
for (i = 0; i < n; i++)
if (a[i] != 7 * i)
err = 1;
}
if (err)
abort ();
int on = n;
#pragma omp target firstprivate (n) map(tofrom: n)
{
n++;
}
if (on != n)
abort ();
#pragma omp target map(tofrom: n) private (n)
{
n = 25;
}
if (on != n)
abort ();
for (i = 0; i < n; i++)
a[i] += i;
#pragma omp target map(to:a) firstprivate (a) map(from:err) private(i)
{
err = 0;
for (i = 0; i < n; i++)
if (a[i] != 8 * i)
err = 1;
}
if (err)
abort ();
for (i = 0; i < n; i++)
a[i] += i;
#pragma omp target firstprivate (a) map(to:a) map(from:err) private(i)
{
err = 0;
for (i = 0; i < n; i++)
if (a[i] != 9 * i)
err = 1;
}
if (err)
abort ();
for (i = 0; i < n; i++)
a[i] += i;
#pragma omp target map(tofrom:a) map(from:err) private(a, i)
{
err = 0;
for (i = 0; i < n; i++)
a[i] = 7;
#pragma omp parallel for reduction(|:err)
for (i = 0; i < n; i++)
if (a[i] != 7)
err |= 1;
}
if (err)
abort ();
for (i = 0; i < n; i++)
if (a[i] != 10 * i)
abort ();
}
int
main ()
{
foo (9);
return 0;
}
|
