PROGRAM c
      CHARACTER z*4,x*4
      
      z = x()
      WRITE(*,'(A4)') z
      END PROGRAM c

      FUNCTION x()
      CHARACTER x*4
      x = 'foo'
      END FUNCTION x