[Bug libfortran/24919] GFORTRAN input and carriage returns

[ray at ultramarine dot com]

------- Comment #10 from ray at ultramarine dot com  2005-11-21 13:52 -------
(In reply to comment #9)
> (In reply to comment #8)
> > Tried yesterday's snapshot of 4.1 and it still does not work.
> 
> OK, I'm on it. Looks like someone forgot about CRLF systems :)
> 
> I'll try to submit a first patch tomorrow...
> 
    The following changes in transfer.c appear to fix the problem in Linux:
157c157
<   char *base, *p, *q;
---
>   char *base, *p, *q, last;
173a174
>   last    = 0;
197c198
<       if (readlen < 1 || *q == '\n' || *q == '\r')
---
>       if (readlen < 1 || *q == '\n' )
215a217,219
>           if ( last  == '\r') {
>              *length = n-1;
>           } else {
216a221
>           }
222a228
>       last = *q;

  Ray


-- 


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