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
86 lines
3.0 KiB
Fortran
86 lines
3.0 KiB
Fortran
! Test declare reduction with derived types that have FINAL subroutines
|
|
! and non-trivial user-defined initializers, to verify that initialization
|
|
! and finalization are generated correctly.
|
|
!
|
|
! RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s
|
|
|
|
! ---------------------------------------------------------------------
|
|
! Test 1: Simple derived type with finalizer and structure constructor init
|
|
! ---------------------------------------------------------------------
|
|
module m1
|
|
implicit none
|
|
|
|
type :: t
|
|
integer :: x = -999
|
|
contains
|
|
final :: cleanup
|
|
end type t
|
|
|
|
contains
|
|
|
|
subroutine cleanup(this)
|
|
type(t), intent(inout) :: this
|
|
this%x = 0
|
|
end subroutine cleanup
|
|
|
|
end module m1
|
|
|
|
! CHECK-LABEL: omp.declare_reduction @plus_t{{.*}} : !fir.ref<{{.*}}>
|
|
!
|
|
! -- alloc region
|
|
! CHECK: alloc {
|
|
! CHECK: %[[ALLOCA:.*]] = fir.alloca
|
|
! CHECK: omp.yield(%[[ALLOCA]] :
|
|
!
|
|
! -- init region: must store 100 (from initializer clause), not -999 (default)
|
|
! CHECK: } init {
|
|
! CHECK: ^bb0(%[[INIT_ARG0:.*]]: !fir.ref<{{.*}}>, %[[INIT_ARG1:.*]]: !fir.ref<{{.*}}>):
|
|
! CHECK: %{{.*}}:2 = hlfir.declare %[[INIT_ARG0]] {uniq_name = "omp_orig"}
|
|
! CHECK: %[[PRIV_DECL:.*]]:2 = hlfir.declare %[[INIT_ARG1]] {uniq_name = "omp_priv"}
|
|
! CHECK: %[[INIT_ADDR:.*]] = fir.address_of(@_QQro._QMm1Tt.0)
|
|
! CHECK: %[[INIT_DECL:.*]]:2 = hlfir.declare %[[INIT_ADDR]]
|
|
! CHECK: hlfir.assign %[[INIT_DECL]]#0 to %[[PRIV_DECL]]#0
|
|
! CHECK: omp.yield(%[[INIT_ARG1]] :
|
|
!
|
|
! -- combiner region
|
|
! CHECK: } combiner {
|
|
! CHECK: ^bb0(%[[LHS:.*]]: !fir.ref<{{.*}}>, %[[RHS:.*]]: !fir.ref<{{.*}}>):
|
|
! CHECK: %{{.*}}:2 = hlfir.declare %[[RHS]] {uniq_name = "omp_in"}
|
|
! CHECK: %{{.*}}:2 = hlfir.declare %[[LHS]] {uniq_name = "omp_out"}
|
|
! CHECK: hlfir.assign %{{.*}} to %{{.*}} : i32, !fir.ref<i32>
|
|
! CHECK: omp.yield(%[[LHS]] :
|
|
! -- cleanup region: calls runtime destroy (which dispatches to the finalizer)
|
|
! CHECK: } cleanup {
|
|
! CHECK: ^bb0(%[[CLEANUP_ARG:.*]]: !fir.ref<{{.*}}>):
|
|
! CHECK: %[[BOX:.*]] = fir.embox %[[CLEANUP_ARG]]
|
|
! CHECK: %[[CONV:.*]] = fir.convert %[[BOX]]
|
|
! CHECK: fir.call @_FortranADestroy(%[[CONV]])
|
|
! CHECK: omp.yield
|
|
! CHECK: }
|
|
!
|
|
! TODO: Test declare reduction without an initializer clause to verify
|
|
! the default constructor value (-999) is used. This requires support
|
|
! for declare reduction without an initializer clause.
|
|
|
|
! Verify the init value constant is 100 (from T(100)), not -999 (default)
|
|
! CHECK: fir.global internal @_QQro._QMm1Tt.0 constant
|
|
! CHECK: %[[C100:.*]] = arith.constant 100 : i32
|
|
! CHECK: fir.insert_value %{{.*}}, %[[C100]], ["x",
|
|
|
|
program test1
|
|
use m1
|
|
implicit none
|
|
|
|
type(t) :: a
|
|
|
|
!$omp declare reduction(plus_t:t: omp_out%x = omp_out%x + omp_in%x) &
|
|
!$omp& initializer(omp_priv = t(100))
|
|
|
|
a = t(200)
|
|
|
|
!$omp parallel reduction(plus_t:a)
|
|
a%x = a%x + 1
|
|
!$omp end parallel
|
|
|
|
end program test1
|