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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index eb11257b9b1ae02a8e82dcc34b16da94d8a36737..c68573b47b36836c99d0525faf48c090d96b3c05 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f
index 21a0d871dde866a875a42a3b26efd9dd9a598f55..bcd056f7fb9ca580316b1f705fb3e300f2868bfb 100644 (file)
--- a/gcc/testsuite/gfortran.dg/fmt_white.f
+++ b/gcc/testsuite/gfortran.dg/fmt_white.f
@@ -1,13 +1,18 @@
 ! { 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