blob: d4ef49690e8404b333f606640c703495ccec188a (
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
|
void
foo (int *p)
{
int a = -1, b = -1, c = -1, d = -1, e = -1, f = -1, g = -1, h = -1;
int i;
#pragma omp teams
{
#pragma omp distribute lastprivate (conditional: a) /* { dg-error "conditional 'lastprivate' clause on 'distribute' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
a = i;
#pragma omp distribute simd lastprivate (conditional: b) /* { dg-error "conditional 'lastprivate' clause on 'distribute' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
b = i;
#pragma omp distribute parallel for lastprivate (conditional: c) /* { dg-error "conditional 'lastprivate' clause on 'distribute' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
c = i;
#pragma omp distribute parallel for simd lastprivate (conditional: d) /* { dg-error "conditional 'lastprivate' clause on 'distribute' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
d = i;
}
#pragma omp teams distribute parallel for lastprivate (conditional: e) /* { dg-error "conditional 'lastprivate' clause on 'distribute' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
e = i;
#pragma omp parallel
{
#pragma omp master
#pragma omp taskloop lastprivate (conditional: f) /* { dg-error "conditional 'lastprivate' clause on 'taskloop' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
f = i;
#pragma omp master taskloop simd lastprivate (conditional: g) /* { dg-error "conditional 'lastprivate' clause on 'taskloop' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
g = i;
}
#pragma omp parallel master taskloop simd lastprivate (conditional: h) /* { dg-error "conditional 'lastprivate' clause on 'taskloop' construct" } */
for (i = 0; i < 32; i++)
if (p[i])
h = i;
}
struct S { int a, b; };
void
bar (int *p)
{
struct S s = { -1, -1 }, t = { 1, 2 };
int i;
#pragma omp parallel for lastprivate (conditional: s) /* { dg-error "non-scalar variable 's' in conditional 'lastprivate' clause" } */
for (i = 0; i < 32; i++)
if (p[i])
{
struct S u = t;
u.b = i;
s = u;
}
}
|
