forked from OSchip/llvm-project
64 lines
2.1 KiB
Fortran
64 lines
2.1 KiB
Fortran
! RUN: %S/test_symbols.sh %s %t %f18 -fopenmp
|
|
! OpenMP Version 4.5
|
|
! 2.15.3.6 Reduction Clause Positive cases
|
|
|
|
!DEF: /omp_reduction MainProgram
|
|
program omp_reduction
|
|
!DEF: /omp_reduction/i ObjectEntity INTEGER(4)
|
|
integer i
|
|
!DEF: /omp_reduction/k ObjectEntity INTEGER(4)
|
|
integer :: k = 10
|
|
!DEF: /omp_reduction/m ObjectEntity INTEGER(4)
|
|
integer :: m = 12
|
|
!$omp parallel do reduction(max:k)
|
|
!DEF: /omp_reduction/Block1/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/Block1/k (OmpReduction) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/max ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /omp_reduction/m
|
|
k = max(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(min:k)
|
|
!DEF: /omp_reduction/Block2/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/Block2/k (OmpReduction) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/min ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /omp_reduction/m
|
|
k = min(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(iand:k)
|
|
!DEF: /omp_reduction/Block3/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/Block3/k (OmpReduction) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/iand ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /omp_reduction/m
|
|
k = iand(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(ior:k)
|
|
!DEF: /omp_reduction/Block4/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/Block4/k (OmpReduction) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/ior ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /omp_reduction/m
|
|
k = ior(k, m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
!$omp parallel do reduction(ieor:k)
|
|
!DEF: /omp_reduction/Block5/i (OmpPrivate, OmpPreDetermined) HostAssoc INTEGER(4)
|
|
do i=1,10
|
|
!DEF: /omp_reduction/Block5/k (OmpReduction) HostAssoc INTEGER(4)
|
|
!DEF: /omp_reduction/ieor ELEMENTAL, INTRINSIC, PURE (Function) ProcEntity
|
|
!REF: /omp_reduction/m
|
|
k = ieor(k,m)
|
|
end do
|
|
!$omp end parallel do
|
|
|
|
end program omp_reduction
|