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


1
2
3
4
5
6
7
8
9
10
11

! { dg-do compile }
      SUBROUTINE A9()
!$OMP PARALLEL SECTIONS
!$OMP SECTION
        CALL XAXIS()
!$OMP SECTION
        CALL YAXIS()
!$OMP SECTION
        CALL ZAXIS()
!$OMP END PARALLEL SECTIONS
      END SUBROUTINE A9