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

! RUN: %S/test_errors.sh %s %t %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
[flang][driver] Add support for -fopenmp and -fopenacc Add support for the following options: * -fopenmp * -fopenacc Update OpenMP and OpenACC semantics tests to use the new driver if it is built, otherwise use f18. OpenMP tests that include `use omp_lib` or run `test_symbols.sh` have not been updated as they require options `-intrinsic-module-directory` and `-funparse-with-symbols` which are currently not implemented in the new driver. Similarly OpenACC tests that run `test_symbols.sh` have not been updated. This patch also moves semanticsContext to CompilerInvocation and creates it in CompilerInvocation#setSemanticsOpts so that the semantics context can use Fortran::parser::Options#features. Summary of changes: - Move semanticsContext to CompilerInvocation.h - Update OpenMP and OpenACC semantics tests that do not rely on `-intrinsic-module-directory` and `-funparse-with-symbols` to use %flang Differential Revision: https://reviews.llvm.org/D96032 2021-02-10 17:24:45 +08:00			`! RUN: %S/test_errors.sh %s %t %flang -fopenmp`
Add Semantic check for Flang OpenMP 4.5 - 2.7.1 schedule clause Semantic check for the positive chunk size. Test Cases: omp-do-schedule01.f90 omp-do-schedule02.f90 omp-do-schedule03.f90 omp-do-schedule04.f90 Reviewed by: Kiran Chandramohan @kiranchandramohan Differential Revision: https://reviews.llvm.org/D89546 2020-11-11 17:55:19 +08:00			`! 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`