character*1 fred
      fred='\'
      write(6,10)
  10  format(1h ,'bslash test passed')
      stop
      end