From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 16 Dec 2005 23:44:14 +0000 (+0000)
Subject: re PR fortran/24268 (gfortran rejects valid format statement)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1c8745ce8df04860668ca9be7436ac333fa54f0c;p=gcc.git

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 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;