! { dg-do compile } ! { dg-additional-options "-std=legacy" } 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