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