3 ! { dg-options "-fopenmp" }
8 !$omp parallel default(none) ! { dg-error "enclosing 'parallel'" }
10 !$omp do schedule(static, s) ! { dg-error "not specified in enclosing 'parallel'" }
16 end subroutine pr33439_1
21 !$omp parallel default(none) ! { dg-error "enclosing 'parallel'" }
22 !$omp do schedule(static, s) ! { dg-error "not specified in enclosing 'parallel'" }
28 end subroutine pr33439_2
33 !$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing 'parallel'" }
38 end subroutine pr33439_3