flang/test/Semantics/OpenMP/scan2.f90

! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols -o - %s 2>&1 | FileCheck %s
! Check scan reduction

! CHECK: MainProgram scope: OMP_REDUCTION
program omp_reduction
  ! CHECK: i size=4 offset=0: ObjectEntity type: INTEGER(4)
  integer i
  ! CHECK: k size=4 offset=4: ObjectEntity type: INTEGER(4) init:10_4
  integer :: k = 10
  ! CHECK: m size=4 offset=8: ObjectEntity type: INTEGER(4) init:12_4
  integer :: m = 12

  ! CHECK: OtherConstruct scope
  ! CHECK: i (OmpPrivate, OmpPreDetermined): HostAssoc
  ! CHECK: k (OmpReduction, OmpExplicit, OmpInclusiveScan, OmpInScanReduction): HostAssoc
  !$omp parallel do  reduction(inscan, +:k)
  do i=1,10
   !$omp scan inclusive(k)
  end do
  !$omp end parallel do
  ! CHECK: m (OmpReduction, OmpExplicit, OmpExclusiveScan, OmpInScanReduction): HostAssoc
  !$omp parallel do  reduction(inscan, +:m)
  do i=1,10
   !$omp scan exclusive(m)
  end do
  !$omp end parallel do
end program omp_reduction