gcc/testsuite/g77.f-torture/execute/1832.f

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