double precision x,y
      data y/x'3e2de00d1b71758e'/
      x=7.0d-3
      write(6,10)x,y
  10  format(d26.20,3x,d26.20)
      a = 9.4
      b = 9.5
      c = 9.6
      write(*,100)a,b,c
100   format(' ',3f5.0)
      write(6,20)
  20  format(1h ,'f042 passed if no spurious characters output')
      stop
      end