1! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
2! OpenMP Version 4.5
3! 2.7.1 Schedule Clause
4program omp_doSchedule
5  integer :: i,n
6  real ::  a(100), y(100), z(100)
7  !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
8  !$omp do schedule(static, -1)
9  do i=2,n+1
10    y(i) = z(i-1) + a(i)
11  end do
12  !$omp end do
13end program omp_doSchedule
14