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