maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/omp-ordered-simd.f90

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

149 lines
4.1 KiB
Fortran
Raw Normal View History

[Flang][OpenMP] Add more sema checks for ordered construct This patch fixes a bug to allow ordered construct within a non-worksharing loop, also adds more sema checks. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D98733
2021-03-20 02:54:06 +08:00
! RUN: %S/test_errors.sh %s %t %flang -fopenmp
! OpenMP Version 4.5
! Various checks with the ordered construct
SUBROUTINE WORK(I)
INTEGER I
END SUBROUTINE WORK
SUBROUTINE ORDERED_GOOD(N)
INTEGER N, I, A(10), B(10), C(10)
!$OMP SIMD
DO I = 1,N
IF (I <= 10) THEN
!$OMP ORDERED SIMD
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END SIMD
END SUBROUTINE ORDERED_GOOD
SUBROUTINE ORDERED_BAD(N)
INTEGER N, I, A(10), B(10), C(10)
!$OMP DO SIMD
DO I = 1,N
IF (I <= 10) THEN
[flang][OpenMP] Add semantic check for occurrence of constructs nested inside a SIMD region Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D99757
2021-05-07 02:00:34 +08:00
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct and the `ORDERED` construct with the `SIMD` clause.
[Flang][OpenMP] Add more sema checks for ordered construct This patch fixes a bug to allow ordered construct within a non-worksharing loop, also adds more sema checks. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D98733
2021-03-20 02:54:06 +08:00
!ERROR: The ORDERED clause must be present on the loop construct if any ORDERED region ever binds to a loop region arising from the loop construct.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END DO SIMD
!$OMP PARALLEL DO
DO I = 1,N
IF (I <= 10) THEN
!ERROR: The ORDERED clause must be present on the loop construct if any ORDERED region ever binds to a loop region arising from the loop construct.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END PARALLEL DO
!$OMP CRITICAL
DO I = 1,N
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END CRITICAL
!$OMP CRITICAL
WRITE(*,*) I
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
!$OMP END CRITICAL
!$OMP ORDERED
WRITE(*,*) I
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
!$OMP END ORDERED
!$OMP TASK
C = C - A * B
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
!$OMP END TASK
!$OMP TASKLOOP
DO I = 1,N
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END TASKLOOP
[flang][OpenMP] Modify semantic check for nesting of `ordered` regions to include `close` nesting check. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D100222
2021-04-14 01:56:43 +08:00
!$OMP CRITICAL
C = C - A * B
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
!$OMP END CRITICAL
!$OMP ORDERED
C = C - A * B
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
!$OMP END ORDERED
!$OMP TASK
C = C - A * B
[flang][OpenMP] Add semantic check for close nesting of `master` regions This patch implements the following semantic check: ``` A master region may not be closely nested inside a work-sharing, loop, atomic, task, or taskloop region. ``` Adds a test case and also modifies a couple of existing test cases to include the check. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D100228
2021-05-14 02:56:07 +08:00
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
[flang][OpenMP] Modify semantic check for nesting of `ordered` regions to include `close` nesting check. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D100222
2021-04-14 01:56:43 +08:00
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
!$OMP END TASK
!$OMP TASKLOOP
DO J= 1,N
C = C - A * B
[flang][OpenMP] Add semantic check for close nesting of `master` regions This patch implements the following semantic check: ``` A master region may not be closely nested inside a work-sharing, loop, atomic, task, or taskloop region. ``` Adds a test case and also modifies a couple of existing test cases to include the check. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D100228
2021-05-14 02:56:07 +08:00
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
[flang][OpenMP] Modify semantic check for nesting of `ordered` regions to include `close` nesting check. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D100222
2021-04-14 01:56:43 +08:00
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
!$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
END DO
!$OMP END TASKLOOP
[Flang][OpenMP] Add more sema checks for ordered construct This patch fixes a bug to allow ordered construct within a non-worksharing loop, also adds more sema checks. Reviewed By: kiranchandramohan Differential Revision: https://reviews.llvm.org/D98733
2021-03-20 02:54:06 +08:00
END SUBROUTINE ORDERED_BAD