blob: 3fa800d7bbe050c0090b4acd1ca0bf31c40ff0c6 (
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
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
|
// { dg-additional-options "-fdump-tree-gimple" }
// Remove the comments from the reduction test
// after the FE learns that reduction variables may appear in data clauses too.
void
test ()
{
int a[100], i, j, z;
// acc parallel
#pragma acc parallel loop collapse (2)
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop gang
for (i = 0; i < 100; i++)
;
#pragma acc parallel loop worker
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop vector
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop seq
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop auto
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop tile (2, 3)
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc parallel loop independent
for (i = 0; i < 100; i++)
;
#pragma acc parallel loop private (z)
for (i = 0; i < 100; i++)
z = 0;
// #pragma acc parallel loop reduction (+:z) copy (z)
// for (i = 0; i < 100; i++)
// ;
// acc kernels
#pragma acc kernels loop collapse (2)
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop gang
for (i = 0; i < 100; i++)
;
#pragma acc kernels loop worker
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop vector
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop seq
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop auto
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop tile (2, 3)
for (i = 0; i < 100; i++)
for (j = 0; j < 10; j++)
;
#pragma acc kernels loop independent
for (i = 0; i < 100; i++)
;
#pragma acc kernels loop private (z)
for (i = 0; i < 100; i++)
z = 0;
// #pragma acc kernels loop reduction (+:z) copy (z)
// for (i = 0; i < 100; i++)
// ;
}
// { dg-final { scan-tree-dump-times "acc loop collapse.2. private.j. private.i" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "acc loop gang" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "acc loop worker" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "acc loop vector" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "acc loop seq" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "acc loop auto" 2 "gimple" } }
// XFAILed: OpenACC tile clauses are discarded during gimplification.
// { dg-final { scan-tree-dump-times "acc loop tile.2, 3" 2 "gimple" { xfail *-*-* } } }
// { dg-final { scan-tree-dump-times "acc loop independent private.i" 2 "gimple" } }
// { dg-final { scan-tree-dump-times "private.z" 2 "gimple" } }
|
