diff options
Diffstat (limited to 'libgfortran/io/list_read.c')
| -rw-r--r-- | libgfortran/io/list_read.c | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 01272d0cb4e..11a35c941cc 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -351,16 +351,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'); |