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-message "note: 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-message "note: 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-message "note: enclosing 'parallel'" }
34!							! { dg-error "'s' not specified in enclosing 'parallel'" "" { target *-*-* } .-1 }
35  do i = 1, 8
36    call something
37  end do
38!$omp end parallel do
39end subroutine pr33439_3
40