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