1! { dg-do compile }
2
3      SUBROUTINE WORK(I, J)
4      INTEGER I,J
5      END SUBROUTINE WORK
6      SUBROUTINE A6_GOOD()
7        INTEGER I, J
8        REAL A(1000)
9        DO 100 I = 1,10
10!$OMP DO
11           DO 100 J = 1,10
12              CALL WORK(I,J)
13            100     CONTINUE        ! !$OMP ENDDO implied here
14!$OMP DO
15        DO 200 J = 1,10
16200        A(I) = I + 1
17!$OMP ENDDO
18!$OMP DO
19        DO 300 I = 1,10
20           DO 300 J = 1,10
21              CALL WORK(I,J)
22300     CONTINUE
23!$OMP ENDDO
24      END SUBROUTINE A6_GOOD
25