character*5 fred
      fred='empty'
      if(fred.eq.5hdummy)goto 20
      write(6,10)
  10  format(1h ,11hf035 passed)
  20  stop
       end