diff options
-rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
-rw-r--r-- | libgfortran/io/list_read.c | 5 |
2 files changed, 11 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 086e292..6c266da 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/35617 + * io/list_read.c (eat_separator): If next character after eatline is '!' + then eatline again. + 2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> * aclocal.m4: Regenerate. diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index f1d0e69..cbe4a649 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -356,6 +356,11 @@ eat_separator (st_parameter_dt *dtp) { eat_line (dtp); c = next_char (dtp); + if (c == '!') + { + eat_line (dtp); + c = next_char (dtp); + } } } while (c == '\n' || c == '\r' || c == ' '); |