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