[Bug libfortran/36202] [mingw] Namelist read fails with CRLF

2008-05-11 Thread jvdelisle at gcc dot gnu dot org 


--- Comment #4 from jvdelisle at gcc dot gnu dot org  2008-05-11 15:10 
---
Fixed on trunk


-- 

jvdelisle at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|WAITING |RESOLVED
 Resolution||FIXED


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36202

[Bug libfortran/36202] [mingw] Namelist read fails with CRLF

2008-05-11 Thread jvdelisle at gcc dot gnu dot org 


--- Comment #3 from jvdelisle at gcc dot gnu dot org  2008-05-11 15:03 
---
Subject: Bug 36202

Author: jvdelisle
Date: Sun May 11 15:02:41 2008
New Revision: 135177

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=135177
Log:
2008-05-11  Jerry DeLisle  <[EMAIL PROTECTED]>

PR libfortran/36202
* io/list_read (eat_separator): Handle the CR-LF case correctly.

Modified:
trunk/libgfortran/ChangeLog
trunk/libgfortran/io/list_read.c


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36202

[Bug libfortran/36202] [mingw] Namelist read fails with CRLF

2008-05-11 Thread jvdelisle at gcc dot gnu dot org 


--- Comment #2 from jvdelisle at gcc dot gnu dot org  2008-05-11 14:25 
---
Here is proposed patch:

Index: list_read.c
===
--- list_read.c (revision 135150)
+++ list_read.c (working copy)
@@ -347,20 +347,12 @@ eat_separator (st_parameter_dt *dtp)
 case '\r':
   dtp->u.p.at_eol = 1;
   n = next_char(dtp);
-  if (n == '\n')
+  if (n != '\n')
{
- if (dtp->u.p.namelist_mode)
-   {
- do
-   c = next_char (dtp);
- while (c == '\n' || c == '\r' || c == ' ');
- unget_char (dtp, c);
-   }
+ unget_char (dtp, n);
+ break;
}
-  else
-   unget_char (dtp, n);
-  break;
-
+/* Fall through.  */
 case '\n':
   dtp->u.p.at_eol = 1;
   if (dtp->u.p.namelist_mode)


-- 

jvdelisle at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|ASSIGNED|WAITING


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36202

[Bug libfortran/36202] [mingw] Namelist read fails with CRLF

2008-05-11 Thread jvdelisle at gcc dot gnu dot org 


--- Comment #1 from jvdelisle at gcc dot gnu dot org  2008-05-11 13:32 
---
I will see if I can sort this out.


-- 

jvdelisle at gcc dot gnu dot org changed:

   What|Removed |Added

 AssignedTo|unassigned at gcc dot gnu   |jvdelisle at gcc dot gnu dot
   |dot org |org
 Status|NEW |ASSIGNED
   Last reconfirmed|2008-05-10 22:04:55 |2008-05-11 13:32:59
   date||


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36202

[Bug libfortran/36202] [mingw] Namelist read fails with CRLF

2008-05-10 Thread fxcoudert at gcc dot gnu dot org 


-- 

fxcoudert at gcc dot gnu dot org changed:

   What|Removed |Added

 Status|UNCONFIRMED |NEW
 Ever Confirmed|0   |1
   Last reconfirmed|-00-00 00:00:00 |2008-05-10 22:04:55
   date||


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36202