! { dg-do compile } | |
SUBROUTINE WORK(I, J) | |
INTEGER I,J | |
END SUBROUTINE WORK | |
SUBROUTINE A6_WRONG | |
INTEGER I, J | |
DO 100 I = 1,10 | |
!$OMP DO | |
DO 100 J = 1,10 | |
CALL WORK(I,J) | |
100 CONTINUE | |
!$OMP ENDDO ! { dg-error "Unexpected ..OMP END DO statement" } | |
END SUBROUTINE A6_WRONG |