PR fortran/24268
* gfortran.dg/fmt_white.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108696
138bc75d-0d04-0410-961f-
82ee72b054a4
+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>
--- /dev/null
+! { 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