diff options
| author | Jerry DeLisle <jvdelisle@verizon.net> | 2005-09-08 06:52:04 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2005-09-08 06:52:04 +0000 |
| commit | 5e949d8329bbb0b1bd6df53bff9e645f0518ba0d (patch) | |
| tree | edd919c86362f78364c753e56811b5458d28b6fe /gcc | |
| parent | 1da2e496b2c3a77e6dff1cc15ad79d31e215c51a (diff) | |
| download | gcc-5e949d8329bbb0b1bd6df53bff9e645f0518ba0d.zip gcc-5e949d8329bbb0b1bd6df53bff9e645f0518ba0d.tar.gz gcc-5e949d8329bbb0b1bd6df53bff9e645f0518ba0d.tar.bz2 | |
re PR libfortran/23760 (gfortran incorrectly succeeds on record overflow)
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.
From-SVN: r104027
Diffstat (limited to 'gcc')
| -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 |