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