gcc/testsuite/gfortran.dg/func_result_2.f90

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