diff options
Diffstat (limited to 'gcc-4.8/libgfortran/io/read.c')
| -rw-r--r-- | gcc-4.8/libgfortran/io/read.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc-4.8/libgfortran/io/read.c b/gcc-4.8/libgfortran/io/read.c index 2da1048f8..f45e1b4ed 100644 --- a/gcc-4.8/libgfortran/io/read.c +++ b/gcc-4.8/libgfortran/io/read.c @@ -655,7 +655,13 @@ read_decimal (st_parameter_dt *dtp, const fnode *f, char *dest, int length) if (c == ' ') { - if (dtp->u.p.blank_status == BLANK_NULL) continue; + if (dtp->u.p.blank_status == BLANK_NULL) + { + /* Skip spaces. */ + for ( ; w > 0; p++, w--) + if (*p != ' ') break; + continue; + } if (dtp->u.p.blank_status == BLANK_ZERO) c = '0'; } |