4 ! This used to cause an ICE because of a missing array spec after interface
7 ! Contributed by Kristjan Jonasson <jonasson@hi.is>
17 function fun(x
) result(st
)
18 integer, intent(in
) :: x(1)
19 character(lenf(x
)) :: st
23 pure
integer function lenf(x
)
24 integer, intent(in
) :: x(1)