1  integer :: i
2  !$omp do schedule(static, 1)
3  do i = 1, 10
4  end do
5  !$omp do schedule(static, 0)	! { dg-warning "must be positive" }
6  do i = 1, 10
7  end do
8  !$omp do schedule(static, -7)	! { dg-warning "must be positive" }
9  do i = 1, 10
10  end do
11end
12