character ln(70)*100
      n=5
      ln(n)(1:1)='1'
      ln(n)(2:50)='this is a test'
      write(6,'(a)')ln(n)(1:50)
      write(6,10)
  10  format(1h ,'mb008 passed')
      stop
      end