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

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