diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-18 04:27:56 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2008-03-18 04:27:56 +0000 |
| commit | 5a79ae8432f7142dc6028fafdcc748941c16c7db (patch) | |
| tree | 775063fd2296c0fefc904e4083ea551f8619c6d3 | |
| parent | f82f5289e742619a197b035fe05fab6e26a92d63 (diff) | |
| download | gcc-5a79ae8432f7142dc6028fafdcc748941c16c7db.zip gcc-5a79ae8432f7142dc6028fafdcc748941c16c7db.tar.gz gcc-5a79ae8432f7142dc6028fafdcc748941c16c7db.tar.bz2 | |
re PR fortran/35617 (read namelist error)
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.
From-SVN: r133302
| -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 == ' '); |