! RUN: %flang_fc1 -emit-obj -flang-experimental-hlfir -o /dev/null %s | |
! Regression test: ensure we can compile this without crashing | |
! this results in a hlfir.elemental with mismatched types in the hlfir.apply | |
! and hlfir.yield | |
subroutine test | |
interface | |
function func(i,j,k) | |
character(5),allocatable :: func(:,:,:) | |
end function func | |
end interface | |
character(13),allocatable :: a(:,:,:) | |
print *, (func(2,5,3)//reshape([(char(ichar('a')+n),n=1,2*5*3)], & | |
& [2,5,3])) | |
end subroutine test |