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