blob: 9ae1ca9fb27440d83e87bd8e09f8f480badf9ea7 (
plain)
1
2
3
4
5
6
7
8
|
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
|