From 5e949d8329bbb0b1bd6df53bff9e645f0518ba0d Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Thu, 8 Sep 2005 06:52:04 +0000 Subject: [PATCH] re PR libfortran/23760 (gfortran incorrectly succeeds on record overflow) 2005-09-07 Jerry DeLisle 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 --- gcc/testsuite/ChangeLog | 7 +++++++ 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 a1f0c89ac1d..95522e8cf80 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-09-07 Jerry DeLisle + + 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 * 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 9f611b54872..1d2ad92add4 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 -- 2.30.2