blob: 2c52f968eaef945a68cfaf823d1737671f998026 [file] [log] [blame]
! RUN: %python %S/test_errors.py %s %flang -fopenmp
! OpenMP Version 4.5
! 2.7.1 Schedule Clause
program omp_doSchedule
integer :: i,n
real :: a(100), y(100), z(100)
!ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
!$omp do schedule(static, -1)
do i=2,n+1
y(i) = z(i-1) + a(i)
end do
!$omp end do
end program omp_doSchedule