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)