llvm-project/flang/test/Semantics/omp-do-schedule02.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

17 lines
449 B
Fortran
Raw Normal View History

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