flang/test/Lower/OpenMP/parallel-wsloop-reduction.f90

! Check that for parallel do, reduction is only processed for the loop

! RUN: bbc -fopenmp -emit-hlfir %s -o - | FileCheck %s
! RUN: flang -fc1 -fopenmp -emit-hlfir %s -o - | FileCheck %s

! CHECK: omp.parallel {
! CHECK: omp.wsloop private({{.*}}) reduction(@add_reduction_i32
subroutine sb
  integer :: x
  x = 0
  !$omp parallel do reduction(+:x)
  do i=1,100
    x = x + 1
  end do
  !$omp end parallel do
end subroutine