shylie/llvm-project
1
0
Fork 0
Code Issues Pull Requests Actions 6 Packages Projects Releases Wiki Activity
llvm-project/flang/test/Semantics/omp-ordered03.f90
PeixinQiao 154135c11c [flang][OpenMP] Add semantic checks of nesting of region about ordered construct 
This patch supports the following checks for ORDERED construct:

```
[5.1] 2.19.9 ORDERED Construct
The worksharing-loop or worksharing-loop SIMD region to which an ordered
region corresponding to an ordered construct without a depend clause
binds must have an ordered clause without the parameter specified on the
corresponding worksharing-loop or worksharing-loop SIMD directive.
The worksharing-loop region to which an ordered region that corresponds
to an ordered construct with any depend clauses binds must have an
ordered clause with the parameter specified on the corresponding
worksharing-loop directive.
An ordered construct with the depend clause specified must be closely
nested inside a worksharing-loop (or parallel worksharing-loop)
construct.
An ordered region that corresponds to an ordered construct with the simd
clause specified must be closely nested inside a simd or
worksharing-loop SIMD region.
```

Reviewed By: kiranchandramohan, shraiysh, NimishMishra

Differential Revision: https://reviews.llvm.org/D113399
2022-04-13 22:27:58 +08:00

123 lines
4.7 KiB
Fortran
Raw Blame History

! RUN: %python %S/test_errors.py %s %flang -fopenmp
! OpenMP Version 5.1
! Check OpenMP construct validity for the following directives:
! 2.19.9 Ordered Construct
subroutine sub1()
integer :: i, j, N = 10
real :: arrayA(10), arrayB(10)
real, external :: foo, bar
!$omp do ordered(1)
do i = 1, N
!$omp ordered depend(source)
arrayA(i) = foo(i)
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end do
!$omp do ordered(1)
do i = 1, N
!$omp target
do j = 1, N
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
arrayA(i) = foo(i)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end target
end do
!$omp end do
!$omp target
!$omp parallel do ordered(1)
do i = 1, N
!$omp ordered depend(source)
arrayA(i) = foo(i)
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end parallel do
!$omp end target
!$omp target parallel do ordered(1)
do i = 1, N
!$omp ordered depend(source)
arrayA(i) = foo(i)
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end target parallel do
!$omp target teams distribute parallel do ordered(1)
do i = 1, N
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
arrayA(i) = foo(i)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end target teams distribute parallel do
!$omp do ordered
do i = 1, N
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
arrayA(i) = foo(i)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end do
!$omp parallel do ordered
do i = 1, N
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
arrayA(i) = foo(i)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end parallel do
!$omp target parallel do ordered
do i = 1, N
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
arrayA(i) = foo(i)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
arrayB(i) = bar(i - 1)
end do
!$omp end target parallel do
!$omp do ordered(1)
do i = 1, N
!ERROR: The number of variables in DEPEND(SINK: vec) clause does not match the parameter specified in ORDERED clause
!$omp ordered depend(sink: i - 1) depend(sink: i - 1, j)
arrayB(i) = bar(i - 1, j)
end do
!$omp end do
!$omp do ordered(2)
do i = 1, N
do j = 1, N
!ERROR: The number of variables in DEPEND(SINK: vec) clause does not match the parameter specified in ORDERED clause
!$omp ordered depend(sink: i - 1) depend(sink: i - 1, j)
arrayB(i) = foo(i - 1) + bar(i - 1, j)
end do
end do
!$omp end do
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(source)
!ERROR: An ORDERED construct with the DEPEND clause must be closely nested in a worksharing-loop (or parallel worksharing-loop) construct with ORDERED clause with a parameter
!$omp ordered depend(sink: i - 1)
end
Reference in New Issue View Git Blame Copy Permalink