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

gcc/testsuite/ChangeLog

+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*.

gcc/testsuite/gfortran.dg/g77/1832.f

 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