llvm-project/flang/test/Semantics/omp-do01.f90

! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! OpenMP Version 4.5
! 2.7.1 Loop Construct
! The loop iteration variable may not appear in a firstprivate directive.

program omp_do
  integer i, j, k

  !ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.
  !$omp do firstprivate(k,i)
  do i = 1, 10
    do j = 1, 10
      print *, "Hello"
    end do
  end do
  !$omp end do

end program omp_do
[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`
[flang] [OpenMP 4.5] Adding lit test cases for OpenMP Constructs. 1. Section 2.5 : Parallel Construct 2. Section 2.7.1 : Loop Construct 3. Section 2.7.2 : Sections Construct 4. Section 2.7.3 : Single Construct 5. Section 2.7.4 : Workshare Construct 6. Section 2.8.1 : Simd Construct 7. Section 2.8.3 : Loop Simd Construct 8. Section 2.9.1 : Task Construct 9. Section 2.9.2 : Taskloop Construct 10. Section 2.9.3 : Taskloop Simd Construct Most of the test cases added as part of this change contains semantic errors except few cases which are semantically correct but thrown a semantic error. Currently flang is not throwing the errors for these cases and throwing semantic errors for the following correct test cases {omp-do03.f90 , omp-loop-simd01.f90 , omp-simd02.f90 , omp-taskloop01.f90} Hence, all the test cases are marked as XFAIL. Reviewed By: DavidTruby Differential Revision: https://reviews.llvm.org/D87908 2020-09-24 20:08:11 +08:00			`! OpenMP Version 4.5`
			`! 2.7.1 Loop Construct`
Add Semantic check for Flang OpenMP 4.5 - 2.7.1 Do Loop restrictions on single directive and firstprivate clause. Semantic checks added to check the worksharing 'single' region closely nested inside a worksharing 'do' region. And also to check whether the 'do' iteration variable is a variable in 'Firstprivate' clause. Files: check-directive-structure.h check-omp-structure.h check-omp-structure.cpp Testcases: omp-do01-positivecase.f90 omp-do01.f90 omp-do05-positivecase.f90 omp-do05.f90 Reviewed by: Kiran Chandramohan @kiranchandramohan , Valentin Clement @clementval Differential Revision: https://reviews.llvm.org/D93205 2021-01-15 13:42:49 +08:00			`! The loop iteration variable may not appear in a firstprivate directive.`
[flang] [OpenMP 4.5] Adding lit test cases for OpenMP Constructs. 1. Section 2.5 : Parallel Construct 2. Section 2.7.1 : Loop Construct 3. Section 2.7.2 : Sections Construct 4. Section 2.7.3 : Single Construct 5. Section 2.7.4 : Workshare Construct 6. Section 2.8.1 : Simd Construct 7. Section 2.8.3 : Loop Simd Construct 8. Section 2.9.1 : Task Construct 9. Section 2.9.2 : Taskloop Construct 10. Section 2.9.3 : Taskloop Simd Construct Most of the test cases added as part of this change contains semantic errors except few cases which are semantically correct but thrown a semantic error. Currently flang is not throwing the errors for these cases and throwing semantic errors for the following correct test cases {omp-do03.f90 , omp-loop-simd01.f90 , omp-simd02.f90 , omp-taskloop01.f90} Hence, all the test cases are marked as XFAIL. Reviewed By: DavidTruby Differential Revision: https://reviews.llvm.org/D87908 2020-09-24 20:08:11 +08:00
			`program omp_do`
			`integer i, j, k`

Add Semantic check for Flang OpenMP 4.5 - 2.7.1 Do Loop restrictions on single directive and firstprivate clause. Semantic checks added to check the worksharing 'single' region closely nested inside a worksharing 'do' region. And also to check whether the 'do' iteration variable is a variable in 'Firstprivate' clause. Files: check-directive-structure.h check-omp-structure.h check-omp-structure.cpp Testcases: omp-do01-positivecase.f90 omp-do01.f90 omp-do05-positivecase.f90 omp-do05.f90 Reviewed by: Kiran Chandramohan @kiranchandramohan , Valentin Clement @clementval Differential Revision: https://reviews.llvm.org/D93205 2021-01-15 13:42:49 +08:00			`!ERROR: DO iteration variable i is not allowed in FIRSTPRIVATE clause.`
			`!$omp do firstprivate(k,i)`
[flang] [OpenMP 4.5] Adding lit test cases for OpenMP Constructs. 1. Section 2.5 : Parallel Construct 2. Section 2.7.1 : Loop Construct 3. Section 2.7.2 : Sections Construct 4. Section 2.7.3 : Single Construct 5. Section 2.7.4 : Workshare Construct 6. Section 2.8.1 : Simd Construct 7. Section 2.8.3 : Loop Simd Construct 8. Section 2.9.1 : Task Construct 9. Section 2.9.2 : Taskloop Construct 10. Section 2.9.3 : Taskloop Simd Construct Most of the test cases added as part of this change contains semantic errors except few cases which are semantically correct but thrown a semantic error. Currently flang is not throwing the errors for these cases and throwing semantic errors for the following correct test cases {omp-do03.f90 , omp-loop-simd01.f90 , omp-simd02.f90 , omp-taskloop01.f90} Hence, all the test cases are marked as XFAIL. Reviewed By: DavidTruby Differential Revision: https://reviews.llvm.org/D87908 2020-09-24 20:08:11 +08:00			`do i = 1, 10`
Add Semantic check for Flang OpenMP 4.5 - 2.7.1 Do Loop restrictions on single directive and firstprivate clause. Semantic checks added to check the worksharing 'single' region closely nested inside a worksharing 'do' region. And also to check whether the 'do' iteration variable is a variable in 'Firstprivate' clause. Files: check-directive-structure.h check-omp-structure.h check-omp-structure.cpp Testcases: omp-do01-positivecase.f90 omp-do01.f90 omp-do05-positivecase.f90 omp-do05.f90 Reviewed by: Kiran Chandramohan @kiranchandramohan , Valentin Clement @clementval Differential Revision: https://reviews.llvm.org/D93205 2021-01-15 13:42:49 +08:00			`do j = 1, 10`
			`print *, "Hello"`
			`end do`
[flang] [OpenMP 4.5] Adding lit test cases for OpenMP Constructs. 1. Section 2.5 : Parallel Construct 2. Section 2.7.1 : Loop Construct 3. Section 2.7.2 : Sections Construct 4. Section 2.7.3 : Single Construct 5. Section 2.7.4 : Workshare Construct 6. Section 2.8.1 : Simd Construct 7. Section 2.8.3 : Loop Simd Construct 8. Section 2.9.1 : Task Construct 9. Section 2.9.2 : Taskloop Construct 10. Section 2.9.3 : Taskloop Simd Construct Most of the test cases added as part of this change contains semantic errors except few cases which are semantically correct but thrown a semantic error. Currently flang is not throwing the errors for these cases and throwing semantic errors for the following correct test cases {omp-do03.f90 , omp-loop-simd01.f90 , omp-simd02.f90 , omp-taskloop01.f90} Hence, all the test cases are marked as XFAIL. Reviewed By: DavidTruby Differential Revision: https://reviews.llvm.org/D87908 2020-09-24 20:08:11 +08:00			`end do`
			`!$omp end do`

			`end program omp_do`