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