pr33439.f90

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

! PR fortran/33439
! { dg-do compile }
! { dg-options "-fopenmp" }

subroutine pr33439_1
  integer :: s, i
  s = 4
!$omp parallel default(none)	! { dg-error "enclosing parallel" }
  call somethingelse
!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
  do i = 1, 8
    call something
  end do
!$omp end do
!$omp end parallel
end subroutine pr33439_1

subroutine pr33439_2
  integer :: s, i
  s = 4
!$omp parallel default(none)	! { dg-error "enclosing parallel" }
!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
  do i = 1, 8
    call something
  end do
!$omp end do
!$omp end parallel
end subroutine pr33439_2

subroutine pr33439_3
  integer :: s, i
  s = 4
!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
  do i = 1, 8
    call something
  end do
!$omp end parallel do
end subroutine pr33439_3