2 integer, parameter :: n
= 100
5 !$acc parallel loop tile(10)
9 !$acc parallel loop tile(*)
13 !$acc parallel loop tile(10, *)
19 !$acc parallel loop tile(10, *, i) ! { dg-error "" }
27 !$acc parallel loop tile ! { dg-error "Unclassifiable" }
31 !$acc parallel loop tile() ! { dg-error "Syntax error" }
35 !$acc parallel loop tile(,1) ! { dg-error "Syntax error" }
39 !$acc parallel loop tile(,,) ! { dg-error "Syntax error" }
43 !$acc parallel loop tile(1.1) ! { dg-error "requires a scalar INTEGER" }
47 !$acc parallel loop tile(-3) ! { dg-warning "must be positive" }
51 !$acc parallel loop tile(10, -3) ! { dg-warning "must be positive" }
57 !$acc parallel loop tile(-100, 10, 5) ! { dg-warning "must be positive" }
65 !$acc parallel loop tile(10, .true.) ! { dg-error "requires a scalar" }
71 !$acc parallel loop tile(1, a) ! { dg-error "constant expression" }
77 !$acc parallel loop tile(a, 1) ! { dg-error "constant expression" }
83 !$acc parallel loop tile(2, 3) collapse (2) ! { dg-error "Incompatible use" }
88 end subroutine parloop
91 integer, parameter :: n
= 100
95 !$acc loop tile ! { dg-error "Unclassifiable" }
99 !$acc loop tile() ! { dg-error "Syntax error" }
117 !$acc loop tile(-2) ! { dg-warning "must be positive" }
121 !$acc loop tile(i) ! { dg-error "constant expression" }
125 !$acc loop tile(2, 2, 1)
133 !$acc parallel loop tile(2, 2)
135 do j
= i
+1, n
, j
! { dg-error "rectangular iteration space" }
139 !$acc loop vector tile(*)
143 !$acc loop worker tile(*)
147 !$acc loop gang tile(*)
151 !$acc loop vector gang tile(*)
155 !$acc loop vector worker tile(*)
159 !$acc loop gang worker tile(*)
163 !$acc loop tile(2, 3) collapse (2) ! { dg-error "Incompatible use" }
172 integer, parameter :: n
= 100
176 !$acc loop tile ! { dg-error "Unclassifiable" }
180 !$acc loop tile() ! { dg-error "Syntax error" }
198 !$acc loop tile(-2) ! { dg-warning "must be positive" }
202 !$acc loop tile(i) ! { dg-error "constant expression" }
206 !$acc loop tile(2, 2, 1)
214 !$acc parallel loop tile(2, 2)
220 !$acc loop vector tile(*)
224 !$acc loop worker tile(*)
228 !$acc loop gang tile(*)
232 !$acc loop vector gang tile(*)
236 !$acc loop vector worker tile(*)
240 !$acc loop gang worker tile(*)
244 !$acc loop tile(2, 3) collapse (2) ! { dg-error "Incompatible use" }
253 integer, parameter :: n
= 100
256 !$acc kernels loop tile(10)
260 !$acc kernels loop tile(*)
264 !$acc kernels loop tile(10, *)
270 !$acc kernels loop tile(10, *, i) ! { dg-error "" }
278 !$acc kernels loop tile ! { dg-error "Unclassifiable" }
282 !$acc kernels loop tile() ! { dg-error "Syntax error" }
286 !$acc kernels loop tile(,1) ! { dg-error "Syntax error" }
290 !$acc kernels loop tile(,,) ! { dg-error "Syntax error" }
294 !$acc kernels loop tile(1.1) ! { dg-error "requires a scalar INTEGER" }
298 !$acc kernels loop tile(-3) ! { dg-warning "must be positive" }
302 !$acc kernels loop tile(10, -3) ! { dg-warning "must be positive" }
308 !$acc kernels loop tile(-100, 10, 5) ! { dg-warning "must be positive" }
316 !$acc kernels loop tile(10, .true.) ! { dg-error "requires a scalar" }
322 !$acc kernels loop tile(1, a) ! { dg-error "constant expression" }
328 !$acc kernels loop tile(a, 1) ! { dg-error "constant expression" }
334 !$acc kernels loop tile(2, 3) collapse (2) ! { dg-error "Incompatible use" }
339 end subroutine kernsloop