re PR fortran/24268 (gfortran rejects valid format statement)

2005-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/24268
	* gfortran.dg/fmt_white.f: Update test.

From-SVN: r109404

gcc/testsuite/ChangeLog

+2005-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/24268
+	* gfortran.dg/fmt_white.f: Update test.
+
 2006-01-05  Carlos O'Donell  <carlos@codesourcery.com>
 
 	* gcc.dg/cast-1.c: Add new warning.

gcc/testsuite/gfortran.dg/fmt_white.f

 ! { dg-do run }
 ! PR24268 Test case derived from example given by Iwan Kawrakow
+! Embedded spaces in format strings should be ignored.
 ! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
       program pr24268
       real x
-      character*11 line
+      character*13 line
       line = "12.34"
       read(line,*) x
       write(line,10) x
  10                                                            format(g1
      *      1.4)
       if (line.ne."  12.34") call abort()
+      line = ""
+      write(line,20) x
+ 20   format(t r 2 , g 1 1 . 4)
+      if (line.ne."    12.34") call abort()
       end