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

2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

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

From-SVN: r108696

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd4561a26343d0bc7107e3f9568aa2751096e946..391df153fd9d39e700c22182eaedc1d1dbe9d50d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,6 +1,11 @@
+2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/24268
+       * gfortran.dg/fmt_white.f: New test.
+
 2005-12-16  Steven G. Kargl <kargls@comcast.net>
 
-       gfortran.dg/label_1.f90: New test.
+       * gfortran.dg/label_1.f90: New test.
 
 2005-12-15  Ben Elliston  <bje@au.ibm.com>
 

diff --git a/gcc/testsuite/gfortran.dg/fmt_white.f b/gcc/testsuite/gfortran.dg/fmt_white.f
new file mode 100644 (file)
index 0000000..21a0d87
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/fmt_white.f
@@ -0,0 +1,13 @@
+! { dg-do run }
+! PR24268 Test case derived from example given by Iwan Kawrakow
+! Prepared by Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+      program pr24268
+      real x
+      character*11 line
+      line = "12.34"
+      read(line,*) x
+      write(line,10) x
+ 10                                                            format(g1
+     *      1.4)
+      if (line.ne."  12.34") call abort()
+      end