gcc/testsuite/gfortran.dg/gomp/pr33439.f90

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

subroutine pr33439_1
  integer :: s, i
  s = 4
!$omp parallel default(none)	! { dg-message "note: 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-message "note: 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-message "note: enclosing 'parallel'" }
!							! { dg-error "'s' not specified in enclosing 'parallel'" "" { target *-*-* } .-1 }
  do i = 1, 8
    call something
  end do
!$omp end parallel do
end subroutine pr33439_3