flang/test/Semantics/OpenMP/do-schedule02.f90

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