! { dg-do compile } | |
! PR fortran/37411 | |
! This used to cause an ICE because of a missing array spec after interface | |
! mapping. | |
! Contributed by Kristjan Jonasson <jonasson@hi.is> | |
MODULE B1 | |
CONTAINS | |
subroutine sub() | |
integer :: x(1) | |
character(3) :: st | |
st = fun(x) | |
end subroutine sub | |
function fun(x) result(st) | |
integer, intent(in) :: x(1) | |
character(lenf(x)) :: st | |
st = 'abc' | |
end function fun | |
pure integer function lenf(x) | |
integer, intent(in) :: x(1) | |
lenf = x(1) | |
end function lenf | |
END MODULE B1 |