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
|
extern "C" void abort ();
struct S { int a, b, c, d; };
void
foo (S &s)
{
int err;
#pragma omp target map (s.b, s.d) map (from: err)
{
err = s.b != 21 || s.d != 24;
s.b++; s.d++;
}
if (err || s.b != 22 || s.d != 25)
abort ();
#pragma omp target data map (s.b, s.d)
{
#pragma omp target map (alloc: s.b, s.d) map (from: err)
{
err = s.b != 22 || s.d != 25;
s.b++; s.d++;
}
}
if (err || s.b != 23 || s.d != 26)
abort ();
#pragma omp target data map (s)
{
#pragma omp target map (alloc: s.b, s.d) map (from: err)
{
err = s.b != 23 || s.d != 26;
s.b++; s.d++;
}
}
if (err || s.b != 24 || s.d != 27)
abort ();
}
template <typename T, typename U>
void
bar (S &s, T &t, U u)
{
int err;
#pragma omp target map (s.b, s.d, t.b, t.d, u.b, u.d) map (from: err)
{
err = s.b != 21 || s.d != 24 || t.b != 73 || t.d != 82 || u.b != 31 || u.d != 37;
s.b++; s.d++; t.b++; t.d++; u.b++; u.d++;
}
if (err || s.b != 22 || s.d != 25 || t.b != 74 || t.d != 83 || u.b != 32 || u.d != 38)
abort ();
#pragma omp target data map (s.b, s.d, t.b, t.d, u.b, u.d)
{
#pragma omp target map (alloc: s.b, s.d, t.b, t.d, u.b, u.d) map (from: err)
{
err = s.b != 22 || s.d != 25 || t.b != 74 || t.d != 83 || u.b != 32 || u.d != 38;
s.b++; s.d++; t.b++; t.d++; u.b++; u.d++;
}
}
if (err || s.b != 23 || s.d != 26 || t.b != 75 || t.d != 84 || u.b != 33 || u.d != 39)
abort ();
#pragma omp target data map (s, t, u)
{
#pragma omp target map (alloc: s.b, s.d, t.b, t.d, u.b, u.d) map (from: err)
{
err = s.b != 23 || s.d != 26 || t.b != 75 || t.d != 84 || u.b != 33 || u.d != 39;
s.b++; s.d++; t.b++; t.d++; u.b++; u.d++;
}
}
if (err || s.b != 24 || s.d != 27 || t.b != 76 || t.d != 85 || u.b != 34 || u.d != 40)
abort ();
}
int
main ()
{
S s = { 1, 21, 2, 24 };
foo (s);
S s2 = { 3, 21, 4, 24 };
S t = { 5, 73, 6, 82 };
S u = { 7, 31, 8, 37 };
bar <S, S &> (s2, t, u);
}
|