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