xref: /llvm-project/flang/test/Semantics/OpenMP/do-schedule01.f90 (revision 502bea25bdc07d1811b8bfea1c2e6bfa8617f72f)
1*3323a4bdSKiran Chandramohan! RUN: %python %S/../test_errors.py %s %flang -fopenmp
2*3323a4bdSKiran Chandramohan! OpenMP Version 4.5
3*3323a4bdSKiran Chandramohan! 2.7.1 Schedule Clause
4*3323a4bdSKiran Chandramohanprogram omp_doSchedule
5*3323a4bdSKiran Chandramohan  integer :: i,n
6*3323a4bdSKiran Chandramohan  real ::  a(100), y(100), z(100)
7*3323a4bdSKiran Chandramohan  !ERROR: The chunk size of the SCHEDULE clause must be a positive integer expression
8*3323a4bdSKiran Chandramohan  !$omp do schedule(static, -1)
9*3323a4bdSKiran Chandramohan  do i=2,n+1
10*3323a4bdSKiran Chandramohan    y(i) = z(i-1) + a(i)
11*3323a4bdSKiran Chandramohan  end do
12*3323a4bdSKiran Chandramohan  !$omp end do
13*3323a4bdSKiran Chandramohanend program omp_doSchedule
14