diff options
Diffstat (limited to 'gcc-4.6/libgfortran/io/list_read.c')
| -rw-r--r-- | gcc-4.6/libgfortran/io/list_read.c | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/gcc-4.6/libgfortran/io/list_read.c b/gcc-4.6/libgfortran/io/list_read.c index 9d92f771c..c473c58b0 100644 --- a/gcc-4.6/libgfortran/io/list_read.c +++ b/gcc-4.6/libgfortran/io/list_read.c @@ -353,16 +353,7 @@ eat_separator (st_parameter_dt *dtp) err = eat_line (dtp); if (err) return err; - if ((c = next_char (dtp)) == EOF) - return LIBERROR_END; - if (c == '!') - { - err = eat_line (dtp); - if (err) - return err; - if ((c = next_char (dtp)) == EOF) - return LIBERROR_END; - } + c = '\n'; } } while (c == '\n' || c == '\r' || c == ' ' || c == '\t'); @@ -2188,7 +2179,6 @@ nml_parse_qualifier (st_parameter_dt *dtp, descriptor_dimension *ad, do not allow excess data to be processed. */ if (is_array_section == 1 || !(compile_options.allow_std & GFC_STD_GNU) - || !dtp->u.p.ionml->touched || dtp->u.p.ionml->type == BT_DERIVED) ls[dim].end = ls[dim].start; else |