1! { dg-do compile }
2
3      SUBROUTINE WORK(I, J)
4      INTEGER I, J
5      END SUBROUTINE WORK
6      SUBROUTINE WRONG1(N)
7      INTEGER N
8        INTEGER I,J
9!$OMP PARALLEL DEFAULT(SHARED)
10!$OMP DO
11          DO I = 1, N
12	     ! incorrect nesting of loop regions
13!$OMP DO     ! { dg-error "may not be closely nested" }
14             DO J = 1, N
15                CALL WORK(I,J)
16             END DO
17          END DO
18!$OMP END PARALLEL
19      END SUBROUTINE WRONG1
20