gcc/gcc/testsuite/gfortran.dg/gomp/schedule-1.f90

  integer :: i
  !$omp do schedule(static, 1)
  do i = 1, 10
  end do
  !$omp do schedule(static, 0)	! { dg-warning "must be positive" }
  do i = 1, 10
  end do
  !$omp do schedule(static, -7)	! { dg-warning "must be positive" }
  do i = 1, 10
  end do
end