ce603a0f16
This adds another puzzle piece for the support of OpenMP DECLARE REDUCTION functionality. This adds support for operators with derived types, as well as declaring multiple different types with the same name or operator. A new detail class for UserReductionDetials is introduced to hold the list of types supported for a given reduction declaration. Tests for parsing and symbol generation added. Declare reduction is still not supported to lowering, it will generate a "Not yet implemented" fatal error. Fixes #141306 Fixes #97241 Fixes #92832 Fixes #66453 --------- Co-authored-by: Mats Petersson <mats.petersson@arm.com>
52 lines
1.4 KiB
Fortran
52 lines
1.4 KiB
Fortran
! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s
|
|
|
|
!! Test that the name mangling for min & max (also used for iand, ieor and ior).
|
|
module mymod
|
|
type :: tt
|
|
real r
|
|
end type tt
|
|
contains
|
|
function mymax(a, b)
|
|
type(tt) :: a, b, mymax
|
|
if (a%r > b%r) then
|
|
mymax = a
|
|
else
|
|
mymax = b
|
|
end if
|
|
end function mymax
|
|
end module mymod
|
|
|
|
program omp_examples
|
|
!CHECK-LABEL: MainProgram scope: omp_examples
|
|
use mymod
|
|
implicit none
|
|
integer, parameter :: n = 100
|
|
integer :: i
|
|
type(tt) :: values(n), big, small
|
|
|
|
!$omp declare reduction(max:tt:omp_out = mymax(omp_out, omp_in)) initializer(omp_priv%r = 0)
|
|
!$omp declare reduction(min:tt:omp_out%r = min(omp_out%r, omp_in%r)) initializer(omp_priv%r = 1)
|
|
|
|
!CHECK: min, ELEMENTAL, INTRINSIC, PURE (Function): ProcEntity
|
|
!CHECK: mymax (Function): Use from mymax in mymod
|
|
!CHECK: op.max: UserReductionDetails TYPE(tt)
|
|
!CHECK: op.min: UserReductionDetails TYPE(tt)
|
|
|
|
big%r = 0
|
|
!$omp parallel do reduction(max:big)
|
|
!CHECK: big (OmpReduction, OmpExplicit): HostAssoc
|
|
!CHECK: max, INTRINSIC: ProcEntity
|
|
do i = 1, n
|
|
big = mymax(values(i), big)
|
|
end do
|
|
|
|
small%r = 1
|
|
!$omp parallel do reduction(min:small)
|
|
!CHECK: small (OmpReduction, OmpExplicit): HostAssoc
|
|
do i = 1, n
|
|
small%r = min(values(i)%r, small%r)
|
|
end do
|
|
|
|
print *, "small=", small%r, " big=", big%r
|
|
end program omp_examples
|