154135c11c
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
34 lines
988 B
Fortran
34 lines
988 B
Fortran
! RUN: %python %S/test_errors.py %s %flang -fopenmp
|
|
! OpenMP Version 4.5
|
|
! 2.7.1 Loop Construct
|
|
! 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.
|
|
|
|
program omp_do
|
|
integer i, j, k
|
|
|
|
!$omp do
|
|
do i = 1, 10
|
|
!ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter
|
|
!$omp ordered
|
|
call my_func()
|
|
!$omp end ordered
|
|
end do
|
|
!$omp end do
|
|
|
|
!$omp do ordered private(i)
|
|
do i = 1, 10
|
|
!$omp parallel do
|
|
do j = 1, 10
|
|
print *,i
|
|
!ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter
|
|
!$omp ordered
|
|
print *,i
|
|
!$omp end ordered
|
|
end do
|
|
!$omp end parallel do
|
|
end do
|
|
!$omp end do
|
|
|
|
end program omp_do
|