a.9.1.f90

来自「用于进行gcc测试」· F90 代码 · 共 12 行

! { 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