1! { dg-do compile }
2
3      SUBROUTINE WRONG5(N)
4      INTEGER N
5!$OMP PARALLEL DEFAULT(SHARED)
6!$OMP CRITICAL
7            CALL WORK(N,1)
8! incorrect nesting of barrier region in a critical region
9!$OMP BARRIER
10            CALL WORK(N,2)
11!$OMP END CRITICAL
12!$OMP END PARALLEL
13      END SUBROUTINE WRONG5
14