28 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols -o - %s 2>&1 | FileCheck %s2! Check scan reduction3 4! CHECK: MainProgram scope: OMP_REDUCTION5program omp_reduction6 ! CHECK: i size=4 offset=0: ObjectEntity type: INTEGER(4)7 integer i8 ! CHECK: k size=4 offset=4: ObjectEntity type: INTEGER(4) init:10_49 integer :: k = 1010 ! CHECK: m size=4 offset=8: ObjectEntity type: INTEGER(4) init:12_411 integer :: m = 1212 13 ! CHECK: OtherConstruct scope14 ! CHECK: i (OmpPrivate, OmpPreDetermined): HostAssoc15 ! CHECK: k (OmpReduction, OmpExplicit, OmpInclusiveScan, OmpInScanReduction): HostAssoc16 !$omp parallel do reduction(inscan, +:k)17 do i=1,1018 !$omp scan inclusive(k)19 end do20 !$omp end parallel do21 ! CHECK: m (OmpReduction, OmpExplicit, OmpExclusiveScan, OmpInScanReduction): HostAssoc22 !$omp parallel do reduction(inscan, +:m)23 do i=1,1024 !$omp scan exclusive(m)25 end do26 !$omp end parallel do27end program omp_reduction28