character*4 null,a,b
  20  format(1h ,a4)
      a=b
      write(6,20)a
      null=char(0)
      write(6,20)null
      write(6,10)
  10  format(1h ,'f030 passed')
      end