1! { dg-do compile }
2
3         SUBROUTINE WRONG6(N)
4         INTEGER N
5!$OMP PARALLEL DEFAULT(SHARED)
6!$OMP SINGLE
7           CALL WORK(N,1)
8! incorrect nesting of barrier region in a single region
9!$OMP BARRIER	! { dg-error "may not be closely nested" }
10            CALL WORK(N,2)
11!$OMP END SINGLE
12!$OMP END PARALLEL
13      END SUBROUTINE WRONG6
14
15