gcc/testsuite/gfortran.dg/gomp/appendix-a/a.35.6.f90

   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-warning "may not be closely nested" }
  10             CALL WORK(N,2)
  11 !$OMP END SINGLE
  12 !$OMP END PARALLEL
  13       END SUBROUTINE WRONG6
  14