From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugs-return-200654-listarch-gcc-bugs=gcc.gnu.org@gcc.gnu.org>
Received: (qmail 32320 invoked by alias); 26 Oct 2006 04:36:06 -0000
Received: (qmail 32287 invoked by alias); 26 Oct 2006 04:35:58 -0000
Date: Thu, 26 Oct 2006 04:36:00 -0000
Message-ID: <20061026043558.32286.qmail@sourceware.org>
X-Bugzilla-Reason: CC
References: <bug-29563-9178@http.gcc.gnu.org/bugzilla/>
Subject: [Bug fortran/29563] Internal read loses data.
In-Reply-To: <bug-29563-9178@http.gcc.gnu.org/bugzilla/>
Reply-To: gcc-bugzilla@gcc.gnu.org
To: gcc-bugs@gcc.gnu.org
From: "jvdelisle at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>
Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Archive: <http://gcc.gnu.org/ml/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-help@gcc.gnu.org>
Sender: gcc-bugs-owner@gcc.gnu.org
X-SW-Source: 2006-10/txt/msg02215.txt.bz2
List-Id: <gcc-bugs.sourceware.org>



------- Comment #4 from jvdelisle at gcc dot gnu dot org  2006-10-26 04:35 -------
Subject: Bug 29563

Author: jvdelisle
Date: Thu Oct 26 04:35:45 2006
New Revision: 118059

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=118059
Log:
2006-10-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

        PR libgfortran/29563
        * io/io.h (st_parameter_dt): Add new flag at_eof.
        * io/list_read.c (next_char): Set flag when EOF and return '\n' to
        signal EOR.  Check flag on next call and jump out.
        * io/unit.c (get_internal_unit): Initialize new flag.

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


-- 


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