program prog
      character(1) str
      str = 'x'
      write(6, *) str
      end