character*60 line
      character*80 buffer
      character*8 word
      line =' '
      k=20
      line(k:k)='*'
      line(k*3:k*3)='*'
      write(6,'(a)')line
      buffer ='plot       res'
      i=4
      word=buffer(1:max(i,1))
      write(6,'(3a)') ' "',word,'"'
      print *,'f054 passed if above lines contain spaces between chars.'
      end