diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/1832.f')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/1832.f | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/1832.f b/gcc/testsuite/g77.f-torture/execute/1832.f new file mode 100644 index 00000000000..9ae1ca9fb27 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/1832.f @@ -0,0 +1,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 |