1832.f

this is a gcc file, you can download it and learn its usetility, for further detail please look at t

      character*120 file
      character*5   string
      file = "c:/dos/adir/bdir/cdir/text.doc"
      write(string, *) "a ", file
      if (string .ne. ' a') call abort
C-- The leading space is normal for list-directed output
C-- "file" is not printed because it would overflow "string".
      end