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
44 lines
1.2 KiB
Fortran
44 lines
1.2 KiB
Fortran
! This test validates that declare mapper for a derived type that extends
|
|
! a parent type with an allocatable component correctly maps the nested
|
|
! allocatable payload via the mapper when the whole object is mapped on
|
|
! target.
|
|
|
|
! REQUIRES: flang, amdgpu
|
|
|
|
! RUN: %libomptarget-compile-fortran-run-and-check-generic
|
|
|
|
program target_declare_mapper_parent_allocatable
|
|
implicit none
|
|
|
|
type, abstract :: base_t
|
|
real, allocatable :: base_arr(:)
|
|
end type base_t
|
|
|
|
type, extends(base_t) :: real_t
|
|
real, allocatable :: real_arr(:)
|
|
end type real_t
|
|
!$omp declare mapper(custommapper: real_t :: t) map(t%base_arr, t%real_arr)
|
|
|
|
type(real_t) :: r
|
|
integer :: i
|
|
allocate(r%base_arr(10), source=1.0)
|
|
allocate(r%real_arr(10), source=1.0)
|
|
|
|
!$omp target map(mapper(custommapper), tofrom: r)
|
|
do i = 1, size(r%base_arr)
|
|
r%base_arr(i) = 2.0
|
|
r%real_arr(i) = 3.0
|
|
r%real_arr(i) = r%base_arr(1)
|
|
end do
|
|
!$omp end target
|
|
|
|
|
|
!CHECK: base_arr: 2. 2. 2. 2. 2. 2. 2. 2. 2. 2.
|
|
print*, "base_arr: ", r%base_arr
|
|
!CHECK: real_arr: 2. 2. 2. 2. 2. 2. 2. 2. 2. 2.
|
|
print*, "real_arr: ", r%real_arr
|
|
|
|
deallocate(r%real_arr)
|
|
deallocate(r%base_arr)
|
|
end program target_declare_mapper_parent_allocatable
|