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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
/* PR c++/110347 */
#include <omp.h>
struct t {
int A;
void f (int dev);
};
void
t::f (int dev)
{
int B = 49;
A = 7;
#pragma omp parallel firstprivate(A) if(0) shared(B) default(none)
{
if (A != 7) { __builtin_printf("ERROR 1b: %d (!= 7) inside omp parallel\n", A); __builtin_abort (); }
A = 5;
B = A;
}
if (A != 7) { __builtin_printf("ERROR 1: %d (!= 7) omp parallel\n", A); __builtin_abort (); }
if (B != 5) { __builtin_printf("ERROR 1a: %d\n", B); __builtin_abort (); }
A = 8; B = 49;
#pragma omp parallel firstprivate(A)if(0) shared(B) default(none)
{
if (A != 8) { __builtin_printf("ERROR 1b: %d (!= 8) inside omp parallel\n", A); __builtin_abort (); }
A = 6;
B = A;
}
if (A != 8) { __builtin_printf("ERROR 2: %d (!= 8) omp parallel\n", A); __builtin_abort (); }
if (B != 6) { __builtin_printf("ERROR 2a: %d\n", B); __builtin_abort (); }
A = 8; B = 49;
#pragma omp target firstprivate(A) map(from:B) device(dev)
{
if (A != 8) { __builtin_printf("ERROR 2b: %d (!= 8) inside omp target\n", A); __builtin_abort (); }
A = 7;
B = A;
}
if (A != 8) { __builtin_printf("ERROR 3: %d (!= 8) omp target\n", A); __builtin_abort (); }
if (B != 7) { __builtin_printf("ERROR 3a: %d\n", B); __builtin_abort (); }
A = 9; B = 49;
#pragma omp target firstprivate(A) map(from:B) device(dev)
{
if (A != 9) { __builtin_printf("ERROR 3b: %d (!= 9) inside omp target\n", A); __builtin_abort (); }
A = 8;
B = A;
}
if (A != 9) { __builtin_printf("ERROR 4: %d (!= 9) omp target\n", A); __builtin_abort (); }
if (B != 8) { __builtin_printf("ERROR 4a: %d\n", B); __builtin_abort (); }
}
template <typename T>
struct tt {
T C;
void g (int dev);
};
template <typename T>
void
tt<T>::g (int dev)
{
T D = 49;
C = 7;
#pragma omp parallel firstprivate(C) if(0) shared(D) default(none)
{
if (C != 7) { __builtin_printf("ERROR 1b: %d (!= 7) inside omp parallel\n", C);__builtin_abort (); }
C = 5;
D = C;
}
if (C != 7) { __builtin_printf("ERROR 1: %d (!= 7) omp parallel\n", C);__builtin_abort (); }
if (D != 5) { __builtin_printf("ERROR 1a: %d\n", D);__builtin_abort (); }
C = 8; D = 49;
#pragma omp parallel firstprivate(C)if(0) shared(D) default(none)
{
if (C != 8) { __builtin_printf("ERROR 1b: %d (!= 8) inside omp parallel\n", C);__builtin_abort (); }
C = 6;
D = C;
}
if (C != 8) { __builtin_printf("ERROR 2: %d (!= 8) omp parallel\n", C);__builtin_abort (); }
if (D != 6) { __builtin_printf("ERROR 2a: %d\n", D);__builtin_abort (); }
C = 8; D = 49;
#pragma omp target firstprivate(C) map(from:D) defaultmap(none) device(dev)
{
if (C != 8) { __builtin_printf("ERROR 2b: %d (!= 8) inside omp target\n", C);__builtin_abort (); }
C = 7;
D = C;
}
if (C != 8) { __builtin_printf("ERROR 3: %d (!= 8) omp target\n", C);__builtin_abort (); }
if (D != 7) { __builtin_printf("ERROR 3a: %d\n", D);__builtin_abort (); }
C = 9; D = 49;
#pragma omp target firstprivate(C) map(from:D) defaultmap(none) device(dev)
{
if (C != 9) { __builtin_printf("ERROR 3b: %d (!= 9) inside omp target\n", C);__builtin_abort (); }
C = 8;
D = C;
}
if (C != 9) { __builtin_printf("ERROR 4: %d (!= 9) omp target\n", C); __builtin_abort (); }
if (D != 8) { __builtin_printf("ERROR 4a: %d\n", D); }
}
void
foo ()
{
struct t x;
for (int dev = 0; dev <= omp_get_num_devices (); dev++)
x.f (dev);
}
void
bar ()
{
struct tt<int> y;
for (int dev = 0; dev <= omp_get_num_devices (); dev++)
y.g (dev);
}
int
main ()
{
foo ();
bar ();
}
|