gfortran.dg/goacc/loop-1.f95

13   !$acc loop
14   do 100 ! { dg-error "cannot be a DO WHILE or DO without loop control" }
18   !$acc loop
19   do ! { dg-error "cannot be a DO WHILE or DO without loop control" }
24   !$acc loop
25   do 200 while (i .lt. 4) ! { dg-error "cannot be a DO WHILE or DO without loop control" }
27   !$acc loop
28   do while (i .lt. 8) ! { dg-error "cannot be a DO WHILE or DO without loop control" }
31   !$acc loop
35   !$acc loop
40   !$acc loop
44   !$acc loop
53   ! different types of loop are allowed
54   !$acc loop
57   !$acc loop
61   ! after loop directive must be loop
62   !$acc loop
63   a(1) = 1 ! { dg-error "Expected DO loop" }
68   !$acc parallel loop
71   !$acc parallel loop
74   !$acc end parallel loop
75   !$acc kernels loop
78   !$acc kernels loop
81   !$acc end kernels loop
83   !$acc kernels loop reduction(max:i)
87   !$acc loop reduction(max:i)
92   !$acc parallel loop collapse(0) ! { dg-error "constant positive integer" }
96   !$acc parallel loop collapse(-1) ! { dg-error "constant positive integer" }
100   !$acc parallel loop collapse(i) ! { dg-error "Constant expression required" }
104   !$acc parallel loop collapse(4) ! { dg-error "not enough DO loops for collapsed" }
112     !$acc parallel loop collapse(2)
117     !$acc parallel loop collapse(2)
122     !$acc parallel loop collapse(2)
128     !$acc parallel loop collapse(3-1)
134     !$acc parallel loop collapse(1+1)
140     !$acc parallel loop collapse(2)
142         do      ! { dg-error "cannot be a DO WHILE or DO without loop control" }
145     !$acc parallel loop collapse(2)
152   !$acc loop independent seq ! { dg-error "SEQ conflicts with INDEPENDENT" }
157   !$acc cache (a) ! { dg-error "inside of loop" }