gfortran.dg/goacc/loop-2.f95

11     !$acc loop auto
14     !$acc loop gang
17     !$acc loop gang(5)
20     !$acc loop gang(num:5)
23     !$acc loop gang(static:5)
26     !$acc loop gang(static:*)
29     !$acc loop gang
31       !$acc loop vector
34       !$acc loop worker
37       !$acc loop gang ! { dg-error "not allowed" }
41     !$acc loop seq gang ! { dg-error "conflicts with" }
45     !$acc loop worker
48     !$acc loop worker(5)
51     !$acc loop worker(num:5)
54     !$acc loop worker
56       !$acc loop vector
59       !$acc loop worker ! { dg-error "not allowed" }
62       !$acc loop gang ! { dg-error "not allowed" }
66     !$acc loop seq worker ! { dg-error "conflicts with" }
69     !$acc loop gang worker ! { dg-error "conflicts with" }
73     !$acc loop vector
76     !$acc loop vector(5)
79     !$acc loop vector(length:5)
82     !$acc loop vector
84       !$acc loop vector ! { dg-error "not allowed" }
87       !$acc loop worker ! { dg-error "not allowed" }
90       !$acc loop gang ! { dg-error "not allowed" }
94     !$acc loop seq vector ! { dg-error "conflicts with" }
97     !$acc loop gang vector ! { dg-error "conflicts with" }
100     !$acc loop worker vector ! { dg-error "conflicts with" }
104     !$acc loop auto
107     !$acc loop seq auto ! { dg-error "conflicts with" }
110     !$acc loop gang auto ! { dg-error "conflicts with" }
113     !$acc loop worker auto ! { dg-error "conflicts with" }
116     !$acc loop vector auto ! { dg-error "conflicts with" }
120     !$acc loop tile ! { dg-error "Unclassifiable" }
123     !$acc loop tile() ! { dg-error "Syntax error" }
126     !$acc loop tile(1)
129     !$acc loop tile(2)
132     !$acc loop tile(6-2)
135     !$acc loop tile(6+2)
138     !$acc loop tile(*)
141     !$acc loop tile(*, 1)
146     !$acc loop tile(-1) ! { dg-warning "must be positive" }
149     !$acc loop tile(i) ! { dg-error "constant expression" }
152     !$acc loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
157       !$acc loop tile(2, 2)
162     !$acc loop vector tile(*)
165     !$acc loop worker tile(*)
168     !$acc loop gang tile(*)
171     !$acc loop vector gang tile(*)
174     !$acc loop vector worker tile(*)
177     !$acc loop gang worker tile(*)
184     !$acc loop auto
187     !$acc loop gang
190     !$acc loop gang(5) ! { dg-error "non-static" }
193     !$acc loop gang(num:5) ! { dg-error "non-static" }
196     !$acc loop gang(static:5)
199     !$acc loop gang(static:*)
202     !$acc loop gang
204       !$acc loop vector
207       !$acc loop worker
210       !$acc loop gang ! { dg-error "not allowed" }
214     !$acc loop seq gang ! { dg-error "conflicts with" }
218     !$acc loop worker
221     !$acc loop worker(5) ! { dg-error "non-static" }
224     !$acc loop worker(num:5) ! { dg-error "non-static" }
227     !$acc loop worker
229       !$acc loop vector
232       !$acc loop worker ! { dg-error "not allowed" }
235       !$acc loop gang ! { dg-error "not allowed" }
239     !$acc loop seq worker ! { dg-error "conflicts with" }
242     !$acc loop gang worker ! { dg-error "conflicts with" }
246     !$acc loop vector
249     !$acc loop vector(5)
252     !$acc loop vector(length:5)
255     !$acc loop vector
257       !$acc loop vector ! { dg-error "not allowed" }
260       !$acc loop worker ! { dg-error "not allowed" }
263       !$acc loop gang ! { dg-error "not allowed" }
267     !$acc loop seq vector ! { dg-error "conflicts with" }
270     !$acc loop gang vector ! { dg-error "conflicts with" }
273     !$acc loop worker vector ! { dg-error "conflicts with" }
277     !$acc loop auto
280     !$acc loop seq auto ! { dg-error "conflicts with" }
283     !$acc loop gang auto ! { dg-error "conflicts with" }
286     !$acc loop worker auto ! { dg-error "conflicts with" }
289     !$acc loop vector auto ! { dg-error "conflicts with" }
293     !$acc loop tile ! { dg-error "Unclassifiable" }
296     !$acc loop tile() ! { dg-error "Syntax error" }
299     !$acc loop tile(1)
302     !$acc loop tile(*)
305     !$acc loop tile(2)
310     !$acc loop tile(-1) ! { dg-warning "must be positive" }
313     !$acc loop tile(i) ! { dg-error "constant expression" }
316     !$acc loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
321       !$acc loop tile(2, 2)
326     !$acc loop vector tile(*)
329     !$acc loop worker tile(*)
332     !$acc loop gang tile(*)
335     !$acc loop vector gang tile(*)
338     !$acc loop vector worker tile(*)
341     !$acc loop gang worker tile(*)
346   !$acc kernels loop auto
349   !$acc kernels loop gang
352   !$acc kernels loop gang(5)
355   !$acc kernels loop gang(num:5)
358   !$acc kernels loop gang(static:5)
361   !$acc kernels loop gang(static:*)
364   !$acc kernels loop gang
366     !$acc kernels loop gang
370   !$acc kernels loop seq gang ! { dg-error "conflicts with" }
374   !$acc kernels loop worker
377   !$acc kernels loop worker(5)
380   !$acc kernels loop worker(num:5)
383   !$acc kernels loop worker
385     !$acc kernels loop worker
388     !$acc kernels loop gang
392   !$acc kernels loop seq worker ! { dg-error "conflicts with" }
395   !$acc kernels loop gang worker ! { dg-error "conflicts with" }
399   !$acc kernels loop vector
402   !$acc kernels loop vector(5)
405   !$acc kernels loop vector(length:5)
408   !$acc kernels loop vector
410     !$acc kernels loop vector
413     !$acc kernels loop worker
416     !$acc kernels loop gang
420   !$acc kernels loop seq vector ! { dg-error "conflicts with" }
423   !$acc kernels loop gang vector ! { dg-error "conflicts with" }
426   !$acc kernels loop worker vector ! { dg-error "conflicts with" }
430   !$acc kernels loop auto
433   !$acc kernels loop seq auto ! { dg-error "conflicts with" }
436   !$acc kernels loop gang auto ! { dg-error "conflicts with" }
439   !$acc kernels loop worker auto ! { dg-error "conflicts with" }
442   !$acc kernels loop vector auto ! { dg-error "conflicts with" }
446   !$acc kernels loop tile ! { dg-error "Unclassifiable" }
449   !$acc kernels loop tile() ! { dg-error "Syntax error" }
452   !$acc kernels loop tile(1)
455   !$acc kernels loop tile(*)
458   !$acc kernels loop tile(*, 1)
463   !$acc kernels loop tile(-1) ! { dg-warning "must be positive" }
466   !$acc kernels loop tile(i) ! { dg-error "constant expression" }
469   !$acc kernels loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
474     !$acc kernels loop tile(2, 2)
479   !$acc kernels loop vector tile(*)
482   !$acc kernels loop worker tile(*)
485   !$acc kernels loop gang tile(*)
488   !$acc kernels loop vector gang tile(*)
491   !$acc kernels loop vector worker tile(*)
494   !$acc kernels loop gang worker tile(*)
498   !$acc parallel loop auto
501   !$acc parallel loop gang
504   !$acc parallel loop gang(5) ! { dg-error "non-static" }
507   !$acc parallel loop gang(num:5) ! { dg-error "non-static" }
510   !$acc parallel loop gang(static:5)
513   !$acc parallel loop gang(static:*)
516   !$acc parallel loop gang
518     !$acc parallel loop gang
522   !$acc parallel loop seq gang ! { dg-error "conflicts with" }
526   !$acc parallel loop worker
529   !$acc parallel loop worker(5) ! { dg-error "non-static" }
532   !$acc parallel loop worker(num:5) ! { dg-error "non-static" }
535   !$acc parallel loop worker
537     !$acc parallel loop worker
540     !$acc parallel loop gang
544   !$acc parallel loop seq worker ! { dg-error "conflicts with" }
547   !$acc parallel loop gang worker ! { dg-error "conflicts with" }
551   !$acc parallel loop vector
554   !$acc parallel loop vector(5)
557   !$acc parallel loop vector(length:5)
560   !$acc parallel loop vector
562     !$acc parallel loop vector
565     !$acc parallel loop worker
568     !$acc parallel loop gang
572   !$acc parallel loop seq vector ! { dg-error "conflicts with" }
575   !$acc parallel loop gang vector ! { dg-error "conflicts with" }
578   !$acc parallel loop worker vector ! { dg-error "conflicts with" }
582   !$acc parallel loop auto
585   !$acc parallel loop seq auto ! { dg-error "conflicts with" }
588   !$acc parallel loop gang auto ! { dg-error "conflicts with" }
591   !$acc parallel loop worker auto ! { dg-error "conflicts with" }
594   !$acc parallel loop vector auto ! { dg-error "conflicts with" }
598   !$acc parallel loop tile ! { dg-error "Unclassifiable" }
601   !$acc parallel loop tile() ! { dg-error "Syntax error" }
604   !$acc parallel loop tile(1)
607   !$acc parallel loop tile(*)
610   !$acc parallel loop tile(*, 1)
615   !$acc parallel loop tile(-1) ! { dg-warning "must be positive" }
618   !$acc parallel loop tile(i) ! { dg-error "constant expression" }
621   !$acc parallel loop tile(2, 2, 1) ! { dg-error "not enough DO loops for tiled" }
626     !$acc parallel loop tile(2, 2)
631   !$acc parallel loop vector tile(*)
634   !$acc parallel loop worker tile(*)
637   !$acc parallel loop gang tile(*)
640   !$acc parallel loop vector gang tile(*)
643   !$acc parallel loop vector worker tile(*)
646   !$acc parallel loop gang worker tile(*)