diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index eb85853e345..bfc10781f56 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/24268
+	* io.c (format_lex): Allow whitespace within text of format specifier.
+
 2005-12-16  Steven G. Kargl <kargls@comcast.net>
  
 	PR fortran/25106
diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c
index 6d3d94b7ffb..23c1cb24132 100644
--- a/gcc/fortran/io.c
+++ b/gcc/fortran/io.c
@@ -233,7 +233,7 @@ format_lex (void)
           if (ISDIGIT (c))
             value = 10 * value + c - '0';
 	}
-      while (ISDIGIT (c));
+      while (ISDIGIT (c) || gfc_is_whitespace(c));
 
       unget_char ();
       token = zflag ? FMT_ZERO : FMT_POSINT;