c { dg-do run } 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