|
145
|
1 /* See also "../../gfortran.dg/goacc/loop-2-parallel.f95". */
|
|
|
2
|
|
111
|
3 void P(void)
|
|
|
4 {
|
|
|
5 int i, j;
|
|
|
6
|
|
|
7 #pragma acc parallel
|
|
|
8 {
|
|
|
9 #pragma acc loop auto
|
|
|
10 for (i = 0; i < 10; i++)
|
|
|
11 { }
|
|
|
12 #pragma acc loop gang
|
|
|
13 for (i = 0; i < 10; i++)
|
|
|
14 { }
|
|
|
15 #pragma acc loop gang(static:5)
|
|
|
16 for (i = 0; i < 10; i++)
|
|
|
17 { }
|
|
|
18 #pragma acc loop gang(static:*)
|
|
|
19 for (i = 0; i < 10; i++)
|
|
|
20 { }
|
|
|
21 #pragma acc loop gang // { dg-message "containing loop" }
|
|
|
22 for (i = 0; i < 10; i++)
|
|
|
23 {
|
|
|
24 #pragma acc loop vector
|
|
|
25 for (j = 1; j < 10; j++)
|
|
|
26 { }
|
|
|
27 #pragma acc loop worker
|
|
|
28 for (j = 1; j < 10; j++)
|
|
|
29 { }
|
|
|
30 #pragma acc loop gang // { dg-error "inner loop uses same" }
|
|
|
31 for (j = 1; j < 10; j++)
|
|
|
32 { }
|
|
|
33 }
|
|
|
34 #pragma acc loop seq gang // { dg-error "'seq' overrides" }
|
|
|
35 for (i = 0; i < 10; i++)
|
|
|
36 { }
|
|
|
37
|
|
|
38 #pragma acc loop worker
|
|
|
39 for (i = 0; i < 10; i++)
|
|
|
40 { }
|
|
|
41 #pragma acc loop worker // { dg-message "containing loop" 2 }
|
|
|
42 for (i = 0; i < 10; i++)
|
|
|
43 {
|
|
|
44 #pragma acc loop vector
|
|
|
45 for (j = 1; j < 10; j++)
|
|
|
46 { }
|
|
|
47 #pragma acc loop worker // { dg-error "inner loop uses same" }
|
|
|
48 for (j = 1; j < 10; j++)
|
|
|
49 { }
|
|
|
50 #pragma acc loop gang // { dg-error "incorrectly nested" }
|
|
|
51 for (j = 1; j < 10; j++)
|
|
|
52 { }
|
|
|
53 }
|
|
|
54 #pragma acc loop seq worker // { dg-error "'seq' overrides" }
|
|
|
55 for (i = 0; i < 10; i++)
|
|
|
56 { }
|
|
|
57 #pragma acc loop gang worker
|
|
|
58 for (i = 0; i < 10; i++)
|
|
|
59 { }
|
|
|
60
|
|
|
61 #pragma acc loop vector
|
|
|
62 for (i = 0; i < 10; i++)
|
|
|
63 { }
|
|
|
64 for (i = 0; i < 10; i++)
|
|
|
65 { }
|
|
|
66 #pragma acc loop vector // { dg-message "containing loop" 3 }
|
|
|
67 for (i = 0; i < 10; i++)
|
|
|
68 {
|
|
|
69 #pragma acc loop vector // { dg-error "inner loop uses same" }
|
|
|
70 for (j = 1; j < 10; j++)
|
|
|
71 { }
|
|
|
72 #pragma acc loop worker // { dg-error "incorrectly nested" }
|
|
|
73 for (j = 1; j < 10; j++)
|
|
|
74 { }
|
|
|
75 #pragma acc loop gang // { dg-error "incorrectly nested" }
|
|
|
76 for (j = 1; j < 10; j++)
|
|
|
77 { }
|
|
|
78 }
|
|
|
79 #pragma acc loop seq vector // { dg-error "'seq' overrides" }
|
|
|
80 for (i = 0; i < 10; i++)
|
|
|
81 { }
|
|
|
82 #pragma acc loop gang vector
|
|
|
83 for (i = 0; i < 10; i++)
|
|
|
84 { }
|
|
|
85 #pragma acc loop worker vector
|
|
|
86 for (i = 0; i < 10; i++)
|
|
|
87 { }
|
|
|
88
|
|
|
89 #pragma acc loop auto
|
|
|
90 for (i = 0; i < 10; i++)
|
|
|
91 { }
|
|
|
92 #pragma acc loop seq auto // { dg-error "'seq' overrides" }
|
|
|
93 for (i = 0; i < 10; i++)
|
|
|
94 { }
|
|
|
95 #pragma acc loop gang auto // { dg-error "'auto' conflicts" }
|
|
|
96 for (i = 0; i < 10; i++)
|
|
|
97 { }
|
|
|
98 #pragma acc loop worker auto // { dg-error "'auto' conflicts" }
|
|
|
99 for (i = 0; i < 10; i++)
|
|
|
100 { }
|
|
|
101 #pragma acc loop vector auto // { dg-error "'auto' conflicts" }
|
|
|
102 for (i = 0; i < 10; i++)
|
|
|
103 { }
|
|
|
104
|
|
|
105 }
|
|
|
106
|
|
|
107 #pragma acc parallel loop auto
|
|
|
108 for (i = 0; i < 10; i++)
|
|
|
109 { }
|
|
|
110 #pragma acc parallel loop gang
|
|
|
111 for (i = 0; i < 10; i++)
|
|
|
112 { }
|
|
|
113 #pragma acc parallel loop gang(static:5)
|
|
|
114 for (i = 0; i < 10; i++)
|
|
|
115 { }
|
|
|
116 #pragma acc parallel loop gang(static:*)
|
|
|
117 for (i = 0; i < 10; i++)
|
|
|
118 { }
|
|
|
119
|
|
145
|
120 #pragma acc parallel loop seq gang // { dg-error "'seq' overrides" }
|
|
|
121 for (i = 0; i < 10; i++)
|
|
111
|
122 { }
|
|
|
123
|
|
|
124 #pragma acc parallel loop worker
|
|
|
125 for (i = 0; i < 10; i++)
|
|
|
126 { }
|
|
|
127
|
|
145
|
128 #pragma acc parallel loop seq worker // { dg-error "'seq' overrides" }
|
|
|
129 for (i = 0; i < 10; i++)
|
|
111
|
130 { }
|
|
|
131 #pragma acc parallel loop gang worker
|
|
|
132 for (i = 0; i < 10; i++)
|
|
|
133 { }
|
|
|
134
|
|
|
135 #pragma acc parallel loop vector
|
|
|
136 for (i = 0; i < 10; i++)
|
|
|
137 { }
|
|
|
138
|
|
145
|
139 #pragma acc parallel loop seq vector // { dg-error "'seq' overrides" }
|
|
|
140 for (i = 0; i < 10; i++)
|
|
111
|
141 { }
|
|
|
142 #pragma acc parallel loop gang vector
|
|
|
143 for (i = 0; i < 10; i++)
|
|
|
144 { }
|
|
|
145 #pragma acc parallel loop worker vector
|
|
|
146 for (i = 0; i < 10; i++)
|
|
|
147 { }
|
|
|
148
|
|
|
149 #pragma acc parallel loop auto
|
|
|
150 for (i = 0; i < 10; i++)
|
|
|
151 { }
|
|
145
|
152 #pragma acc parallel loop seq auto // { dg-error "'seq' overrides" }
|
|
|
153 for (i = 0; i < 10; i++)
|
|
111
|
154 { }
|
|
145
|
155 #pragma acc parallel loop gang auto // { dg-error "'auto' conflicts" }
|
|
|
156 for (i = 0; i < 10; i++)
|
|
111
|
157 { }
|
|
145
|
158 #pragma acc parallel loop worker auto // { dg-error "'auto' conflicts" }
|
|
|
159 for (i = 0; i < 10; i++)
|
|
111
|
160 { }
|
|
145
|
161 #pragma acc parallel loop vector auto // { dg-error "'auto' conflicts" }
|
|
|
162 for (i = 0; i < 10; i++)
|
|
111
|
163 { }
|
|
|
164 }
|
