------- Comment #2 from burnus at gcc dot gnu dot org 2008-03-17 23:20 -------
Confirmed. This is a regression. Personal candidate for this is PR 34530. I
think the following patch is correct. Jerry what do you think? (I currently
have no time to submit the patch.)
Index: libgfortran/io/list_read.c
===================================================================
--- libgfortran/io/list_read.c (Revision 133293)
+++ libgfortran/io/list_read.c (Arbeitskopie)
@@ -353,10 +353,7 @@ eat_separator (st_parameter_dt *dtp)
{
c = next_char (dtp);
if (c == '!')
- {
- eat_line (dtp);
- c = next_char (dtp);
- }
+ eat_line (dtp);
}
while (c == '\n' || c == '\r' || c == ' ');
unget_char (dtp, c);
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |jvdelisle at gcc dot gnu dot
| |org, burnus at gcc dot gnu
| |dot org
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
GCC build triplet|GNU Fortran (GCC) 4.3.0 |
GCC host triplet|Linux quartic.txcorp.com |
|2.6.19-1.2288.fc5 |
GCC target triplet|x86_64 x86_64 GNU/Linux |
Keywords| |wrong-code
Known to fail| |4.3.0 4.4.0
Known to work| |4.1.3 4.2.2
Last reconfirmed|0000-00-00 00:00:00 |2008-03-17 23:20:56
date| |
Summary|read namelist error |[4.3, 4.4 Regression] read
| |namelist error
Target Milestone|--- |4.3.1
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=35617
