1 2 3 4 5 6 7 8 9 10 11
! Compiled with pr83149_b.f90 ! module mod character(8) string contains function get_string() result(s) character(len_trim(string)) s s = string end function end module