diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/1832.f | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a1f0c89..95522e8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-09-07 Jerry DeLisle <jvdelisle@verizon.net> + + PR libfortran/23760 + * gfortran.dg/g77/1832.f: Remove long string in write statement + to allow the test to pass on correct list directed output with + prepended space. + 2005-09-07 James E Wilson <wilson@specifix.com> * gcc.dg/intmax_t-1.c: Disable for xscale*-*-elf*. diff --git a/gcc/testsuite/gfortran.dg/g77/1832.f b/gcc/testsuite/gfortran.dg/g77/1832.f index 9f611b5..1d2ad92 100644 --- a/gcc/testsuite/gfortran.dg/g77/1832.f +++ b/gcc/testsuite/gfortran.dg/g77/1832.f @@ -1,9 +1,7 @@ c { dg-do run } - character*120 file character*5 string - file = "c:/dos/adir/bdir/cdir/text.doc" - write(string, *) "a ", file + write(string, *) "a " 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 |