From 645ce7b50c494b43ee192bd04832b4d39bf1bcfd Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Fri, 16 Dec 2005 23:44:14 +0000 Subject: [PATCH] 2005-12-16 Jerry DeLisle 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 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/io.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + PR fortran/24268 + * io.c (format_lex): Allow whitespace within text of format specifier. + 2005-12-16 Steven G. Kargl 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; -- 2.11.0