1! PR fortran/33439 2! { dg-do compile } 3! { dg-options "-fopenmp" } 4 5subroutine pr33439_1 6 integer :: s, i 7 s = 4 8!$omp parallel default(none) ! { dg-error "enclosing 'parallel'" } 9 call somethingelse 10!$omp do schedule(static, s) ! { dg-error "not specified in enclosing 'parallel'" } 11 do i = 1, 8 12 call something 13 end do 14!$omp end do 15!$omp end parallel 16end subroutine pr33439_1 17 18subroutine pr33439_2 19 integer :: s, i 20 s = 4 21!$omp parallel default(none) ! { dg-error "enclosing 'parallel'" } 22!$omp do schedule(static, s) ! { dg-error "not specified in enclosing 'parallel'" } 23 do i = 1, 8 24 call something 25 end do 26!$omp end do 27!$omp end parallel 28end subroutine pr33439_2 29 30subroutine pr33439_3 31 integer :: s, i 32 s = 4 33!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing 'parallel'" } 34 do i = 1, 8 35 call something 36 end do 37!$omp end parallel do 38end subroutine pr33439_3 39