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

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

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

From-SVN: r108695

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index eb85853e34563907eeb6e9e5834209789229c69a..bfc10781f56f217959cd069cad3c9cccc9a62f4b 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 6d3d94b7ffba4a5c5aa86ae4420c55343c600f99..23c1cb24132fa03da0fc921f395fdb4be7b8eced 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;