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


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-do compile }

         SUBROUTINE WRONG6(N)
         INTEGER N
!$OMP PARALLEL DEFAULT(SHARED)
!$OMP SINGLE
           CALL WORK(N,1)
! incorrect nesting of barrier region in a single region
!$OMP BARRIER	! { dg-warning "may not be closely nested" }
            CALL WORK(N,2)
!$OMP END SINGLE
!$OMP END PARALLEL
      END SUBROUTINE WRONG6