org.eclipse.photran-samples/src-fortran2003/char-fn-test.f03

! Test of a function returning a string -- JO 1/29/09
  print *, c()
contains
  character(len=len("Hello")) function c()
  	c = "Hello"
  end function
end program