blob: 8d25e87caf8abe2959da7c5e1828d5b6e6c20f70 [file] [log] [blame]
! { dg-do run }
! Character functions with a result clause were broken
program testch
if (ch().ne."hello ") STOP 1
contains
function ch () result(str)
character(len = 10) :: str
str ="hello"
end function ch
end program testch