ca4dbc2718
This patch updates lowering from PFT to MLIR of workshare loops to follow the loop wrapper approach. Unit tests impacted by this change are also updated. As the last patch of the stack, this should compile and pass unit tests.
47 lines
1.1 KiB
Fortran
47 lines
1.1 KiB
Fortran
! This test checks lowering of worksharing-loop construct with ordered clause.
|
|
|
|
! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
|
|
|
|
! This checks lowering ordered clause specified without parameter
|
|
subroutine wsloop_ordered_no_para()
|
|
integer :: a(10), i
|
|
|
|
! CHECK: omp.wsloop ordered(0) {
|
|
! CHECK-NEXT: omp.loop_nest (%{{.*}}) : i32 = (%{{.*}}) to (%{{.*}}) inclusive step (%{{.*}}) {
|
|
! CHECK: omp.yield
|
|
! CHECK: }
|
|
! CHECK: omp.terminator
|
|
! CHECK: }
|
|
|
|
!$omp do ordered
|
|
do i = 2, 10
|
|
!$omp ordered
|
|
a(i) = a(i-1) + 1
|
|
!$omp end ordered
|
|
end do
|
|
!$omp end do
|
|
|
|
end
|
|
|
|
! This checks lowering ordered clause specified with a parameter
|
|
subroutine wsloop_ordered_with_para()
|
|
integer :: a(10), i
|
|
|
|
! CHECK: func @_QPwsloop_ordered_with_para() {
|
|
! CHECK: omp.wsloop ordered(1) {
|
|
! CHECK-NEXT: omp.loop_nest (%{{.*}}) : i32 = (%{{.*}}) to (%{{.*}}) inclusive step (%{{.*}}) {
|
|
! CHECK: omp.yield
|
|
! CHECK: }
|
|
! CHECK: omp.terminator
|
|
! CHECK: }
|
|
|
|
!$omp do ordered(1)
|
|
do i = 2, 10
|
|
!!$omp ordered depend(sink: i-1)
|
|
a(i) = a(i-1) + 1
|
|
!!$omp ordered depend(source)
|
|
end do
|
|
!$omp end do
|
|
|
|
end
|