1character*120file2character*5string3file = "c:/dos/adir/bdir/cdir/text.doc"4write(string, *) "a ", file5if (string .ne. ' a') callabort6C-- The leading space is normal for list-directed output7C-- "file" is not printed because it would overflow "string".8end9