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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
#ifdef __cplusplus
extern "C" {
#endif
int omp_get_thread_num (void);
#ifdef __cplusplus
}
#endif
void
f1 (int *a)
{
int i;
#pragma omp loop /* { dg-error "'bind' clause not specified on a 'loop' construct not nested inside another OpenMP construct" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
void
f2 (int *a)
{
int i, j;
#pragma omp parallel num_threads (4)
{
int j = omp_get_thread_num ();
#pragma omp loop private (i) bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[j * 64 + i] = i;
}
#pragma omp critical
{
#pragma omp loop lastprivate (i) bind(teams)/* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp master
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp sections
{
#pragma omp loop bind(teams) lastprivate(i) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp single
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp task
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp taskgroup
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
#pragma omp teams
{
#pragma omp distribute
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
}
#pragma omp for
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp parallel
#pragma omp loop
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp loop bind(thread)
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp loop bind(parallel)
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp for ordered
for (j = 0; j < 64; ++j)
{
#pragma omp ordered threads
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp simd
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp taskloop
for (j = 0; j < 64; ++j)
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
#pragma omp target
{
#pragma omp loop bind(teams) /* { dg-error "'bind\\(teams\\)' on a 'loop' region not strictly nested inside of a 'teams' region" } */
for (i = 0; i < 64; i++)
a[i] = i;
}
}
void
f3 (int *a)
{
int i, j;
#pragma omp simd
for (j = 0; j < 64; j++)
{
#pragma omp loop bind(parallel) /* { dg-error "'bind\\(parallel\\)' on a 'loop' construct nested inside 'simd' construct" } */
for (i = 0; i < 64; i++)
a[64 * j + i] = i;
}
}
|
