blob: 7e0d17983e4de661b5474bdc3c5bcd1ceab08911 (
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
|
/* PR middle-end/80809 */
/* { dg-do run } */
__attribute__((noinline, noclone)) void
foo (int x)
{
int i, v[x], w[16];
for (i = 0; i < x; i++)
v[i] = i;
for (i = 0; i < 16; i++)
w[i] = 0;
#pragma omp parallel
#pragma omp single
{
int z[x];
for (i = 0; i < x; i++)
z[0] = 0;
for (i = 0; i < 16; i++)
#pragma omp task firstprivate (z) firstprivate (v)
{
int j;
for (j = 0; j < x; j++)
z[j] = i;
for (j = 0; j < x; j++)
v[j] += z[j];
for (j = 0; j < x; j++)
w[i] += v[j];
}
}
for (i = 0; i < 16; i++)
if (w[i] != (x - 1) * x / 2 + x * i)
__builtin_abort ();
}
int
main ()
{
foo (4);
foo (27);
foo (196);
return 0;
}
|
