derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
61 lines
2.0 KiB
Fortran
61 lines
2.0 KiB
Fortran
! Test user-defined assignment in declare reduction initializer.
|
|
! Verifies that `initializer(omp_priv = t(1))` correctly dispatches to the
|
|
! user-defined `assignment(=)` subroutine, not intrinsic assignment.
|
|
!
|
|
! This is a regression test for https://github.com/llvm/llvm-project/issues/184927
|
|
|
|
!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s
|
|
|
|
module m_defined_assign
|
|
implicit none
|
|
type :: t
|
|
integer :: val = -999
|
|
end type t
|
|
|
|
interface assignment(=)
|
|
module procedure custom_assign
|
|
end interface
|
|
|
|
contains
|
|
subroutine custom_assign(lhs, rhs)
|
|
type(t), intent(out) :: lhs
|
|
type(t), intent(in) :: rhs
|
|
lhs%val = rhs%val * 10
|
|
end subroutine
|
|
end module
|
|
|
|
subroutine test_defined_assign_init()
|
|
use m_defined_assign
|
|
implicit none
|
|
integer :: i
|
|
type(t) :: x
|
|
|
|
!$omp declare reduction(add_t : t : omp_out%val = omp_out%val + omp_in%val) &
|
|
!$omp& initializer(omp_priv = t(1))
|
|
|
|
x = t(0)
|
|
!$omp parallel do reduction(add_t : x) num_threads(2)
|
|
do i = 1, 2
|
|
x%val = x%val + 1
|
|
end do
|
|
!$omp end parallel do
|
|
end subroutine
|
|
|
|
!CHECK: omp.declare_reduction @add_t :
|
|
!CHECK-SAME: alloc {
|
|
!CHECK: %[[ALLOCA:.*]] = fir.alloca
|
|
!CHECK: omp.yield(%[[ALLOCA]] :
|
|
!CHECK: } init {
|
|
!CHECK: ^bb0(%[[INIT_ARG0:.*]]: !fir.ref<!fir.type<_QMm_defined_assignTt{val:i32}>>,
|
|
!CHECK-SAME: %[[INIT_ARG1:.*]]: !fir.ref<!fir.type<_QMm_defined_assignTt{val:i32}>>):
|
|
!CHECK: %[[OMP_ORIG:.*]]:2 = hlfir.declare %[[INIT_ARG0]] {uniq_name = "omp_orig"}
|
|
!CHECK: %[[OMP_PRIV:.*]]:2 = hlfir.declare %[[INIT_ARG1]] {uniq_name = "omp_priv"}
|
|
!CHECK: %[[INIT_ADDR:.*]] = fir.address_of(@_QQro._QMm_defined_assignTt.0)
|
|
!CHECK: %[[INIT_DECL:.*]]:2 = hlfir.declare %[[INIT_ADDR]]
|
|
!CHECK: %[[AS_EXPR:.*]] = hlfir.as_expr %[[INIT_DECL]]#0
|
|
!CHECK: %[[ASSOC:.*]]:3 = hlfir.associate %[[AS_EXPR]] {adapt.valuebyref}
|
|
!CHECK: fir.call @_QMm_defined_assignPcustom_assign(%[[OMP_PRIV]]#0, %[[ASSOC]]#0)
|
|
!CHECK: hlfir.end_associate %[[ASSOC]]#1, %[[ASSOC]]#2
|
|
!CHECK: omp.yield(%[[INIT_ARG1]] :
|
|
!CHECK: } combiner {
|