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


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

! { dg-do compile }
      SUBROUTINE A14()
        INTEGER I
        I=1
!$OMP PARALLEL SECTIONS
!$OMP SECTION
!$OMP CRITICAL (NAME)
!$OMP PARALLEL
!$OMP SINGLE
                  I=I+1
!$OMP END SINGLE
!$OMP END PARALLEL
!$OMP END CRITICAL (NAME)
!$OMP END PARALLEL SECTIONS
      END SUBROUTINE A14