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>
45 lines
1.4 KiB
Fortran
45 lines
1.4 KiB
Fortran
! RUN: %flang_fc1 -fdebug-dump-symbols -fopenmp -fopenmp-version=50 %s | FileCheck %s
|
|
|
|
!CHECK-LABEL: Subprogram scope: initme
|
|
subroutine initme(x,n)
|
|
integer x,n
|
|
x=n
|
|
end subroutine initme
|
|
|
|
!CHECK-LABEL: Subprogram scope: func
|
|
function func(x, n, init)
|
|
integer func
|
|
integer x(n)
|
|
integer res
|
|
interface
|
|
subroutine initme(x,n)
|
|
integer x,n
|
|
end subroutine initme
|
|
end interface
|
|
!$omp declare reduction(red_add:integer(4):omp_out=omp_out+omp_in) initializer(initme(omp_priv,0))
|
|
!CHECK: red_add: UserReductionDetails
|
|
!CHECK: Subprogram scope: initme
|
|
!CHECK: omp_in size=4 offset=0: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_orig size=4 offset=4: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_out size=4 offset=8: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_priv size=4 offset=12: ObjectEntity type: INTEGER(4)
|
|
!$omp simd reduction(red_add:res)
|
|
do i=1,n
|
|
res=res+x(i)
|
|
enddo
|
|
func=res
|
|
end function func
|
|
|
|
program main
|
|
!CHECK-LABEL: MainProgram scope: main
|
|
|
|
!$omp declare reduction (my_add_red : integer : omp_out = omp_out + omp_in) initializer (omp_priv=0)
|
|
|
|
!CHECK: my_add_red: UserReductionDetails
|
|
!CHECK: omp_in size=4 offset=0: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_orig size=4 offset=4: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_out size=4 offset=8: ObjectEntity type: INTEGER(4)
|
|
!CHECK: omp_priv size=4 offset=12: ObjectEntity type: INTEGER(4)
|
|
|
|
end program main
|