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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104027 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a1f0c89..95522e8 100644 (file)
--- 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 (file)
--- 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