gcc/testsuite/gfortran.dg/g77/1832.f

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