1! { dg-do compile } 2 3 SUBROUTINE WORK(I, J) 4 INTEGER I,J 5 END SUBROUTINE WORK 6 7 SUBROUTINE A6_WRONG 8 INTEGER I, J 9 DO 100 I = 1,10 10!$OMP DO 11 DO 100 J = 1,10 12 CALL WORK(I,J) 13 100 CONTINUE 14!$OMP ENDDO ! { dg-error "Unexpected ..OMP END DO statement" } 15 END SUBROUTINE A6_WRONG 16