23 lines · plain
1! RUN: %flang_fc1 -fopenmp -fdebug-dump-symbols -o - %s 2>&1 | FileCheck %s2! Check intrinsic reduction symbols (in this case "max" are marked as INTRINSIC3 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): HostAssoc16 ! CHECK: max, INTRINSIC: ProcEntity17 !$omp parallel do reduction(max:k)18 do i=1,1019 k = i20 end do21 !$omp end parallel do22end program omp_reduction23