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

	PR fortran/24268
	* io.c (format_lex): Allow whitespace within text of format specifier.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108695 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index eb85853..bfc1078 100644 (file)
--- 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 6d3d94b..23c1cb2 100644 (file)
--- 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;