39 lines
901 B
Fortran
39 lines
901 B
Fortran
! 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
|