! See also "../../c-c++-common/goacc/loop-3.c". program test implicit none integer :: i !$acc parallel !$acc loop gang(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop gang(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop worker(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop worker(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc loop vector(5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc loop vector(length:5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc end parallel !$acc parallel loop gang(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop gang(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop worker(5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop worker(num:5) ! { dg-error "num arguments" } DO i = 1,10 ENDDO !$acc parallel loop vector(5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO !$acc parallel loop vector(length:5) ! { dg-error "length arguments" } DO i = 1,10 ENDDO end