acd52a2419
Extends `do concurrent` device support by emitting compiler-generated declare mapper ops for live-ins whose types are record types and have allocatable members.
29 lines
866 B
Fortran
29 lines
866 B
Fortran
! RUN: %flang_fc1 -emit-hlfir -fopenmp -fdo-concurrent-to-openmp=device %s -o - \
|
|
! RUN: | FileCheck %s
|
|
|
|
module record_with_alloc_mod
|
|
implicit none
|
|
public :: record_with_alloc
|
|
|
|
type record_with_alloc
|
|
real, allocatable :: values_(:)
|
|
end type
|
|
end module record_with_alloc_mod
|
|
|
|
subroutine random_inputs()
|
|
use record_with_alloc_mod, only : record_with_alloc
|
|
implicit none
|
|
type(record_with_alloc) :: inputs(2)
|
|
integer :: i
|
|
|
|
do concurrent(i=1:10)
|
|
inputs(1)%values_ = [1,2,3,4]
|
|
end do
|
|
end subroutine
|
|
|
|
! CHECK: omp.declare_mapper @[[MAPPER_NAME:.*record_with_alloc_omp_default_mapper]] : !fir.type<{{.*}}record_with_alloc{{.*}}>
|
|
|
|
! CHECK: func.func @{{.*}}random_inputs()
|
|
! CHECK: %[[ARR_DECL:.*]]:2 = hlfir.declare {{.*}} {uniq_name = "{{.*}}inputs"}
|
|
! CHECK: omp.map.info var_ptr(%[[ARR_DECL]]#1 : {{.*}}) {{.*}} mapper(@[[MAPPER_NAME]])
|