28 lines
916 B
Fortran
28 lines
916 B
Fortran
! 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, 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, 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
|