forked from OSchip/llvm-project
14 lines
371 B
Fortran
14 lines
371 B
Fortran
|
! RUN: %S/test_errors.sh %s %t %f18 -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
|