diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index bd4561a26343..391df153fd9d 100644
--- 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
index 000000000000..21a0d871dde8
--- /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