16 lines · plain
1! RUN: %flang_fc1 -emit-obj -flang-experimental-hlfir -o /dev/null %s2 3! Regression test: ensure we can compile this without crashing4! this results in a hlfir.elemental with mismatched types in the hlfir.apply5! and hlfir.yield6subroutine test7 interface8 function func(i,j,k)9 character(5),allocatable :: func(:,:,:)10 end function func11 end interface12 character(13),allocatable :: a(:,:,:)13 print *, (func(2,5,3)//reshape([(char(ichar('a')+n),n=1,2*5*3)], &14 & [2,5,3]))15end subroutine test16