1! { dg-do run }
2! Character functions with a result clause were broken
3program testch
4  if (ch().ne."hello     ") call abort()
5contains
6  function ch () result(str)
7    character(len = 10)  :: str
8    str ="hello"
9  end function ch
10end program testch
11