From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9324 invoked by alias); 1 Apr 2007 15:24:15 -0000 Received: (qmail 8975 invoked by alias); 1 Apr 2007 15:24:01 -0000 Date: Sun, 01 Apr 2007 15:24:00 -0000 Message-ID: <20070401152401.8972.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/31366] Last record truncated for read after short write, direct access file In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jvdelisle at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2007-04/txt/msg00014.txt.bz2 ------- Comment #10 from jvdelisle at gcc dot gnu dot org 2007-04-01 16:24 ------- Subject: Bug 31366 Author: jvdelisle Date: Sun Apr 1 16:23:48 2007 New Revision: 123401 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123401 Log: 2007-04-01 Jerry DeLisle PR libgfortran/31366 * io/transfer.c (read_block_direct): Do not generate error when reading past EOF on a short record that is less than the RECL= specified. 2007-04-01 Jerry DeLisle PR libgfortran/31207 * io/unit.c (close_unit_1): If there are bytes previously written from ADVANCE="no", move to the end before closing. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/transfer.c trunk/libgfortran/io/unit.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31366