blob: 70c9ec8ebfae695c93bb9617bef60fef5882f3c9 (
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
|
/* Exercise nested function decomposition, gcc/tree-nested.c. */
int
main (void)
{
int j = 0, k = 6, l = 7, m = 8;
void simple (void)
{
int i;
#pragma acc parallel
{
#pragma acc loop
for (i = 0; i < m; i+= k)
j = (m + i - j) * l;
}
}
void collapse (void)
{
int x, y, z;
#pragma acc parallel
{
#pragma acc loop collapse (3)
for (x = 0; x < k; x++)
for (y = -5; y < l; y++)
for (z = 0; z < m; z++)
j += x + y + z;
}
}
void reduction (void)
{
int x, y, z;
#pragma acc parallel reduction (+:j)
{
#pragma acc loop reduction (+:j) collapse (3)
for (x = 0; x < k; x++)
for (y = -5; y < l; y++)
for (z = 0; z < m; z++)
j += x + y + z;
}
}
simple();
collapse();
reduction();
return 0;
}
|