From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4924 invoked by alias); 21 Nov 2009 02:44:25 -0000 Received: (qmail 4872 invoked by alias); 21 Nov 2009 02:44:15 -0000 Date: Sat, 21 Nov 2009 02:44:00 -0000 Message-ID: <20091121024415.4871.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/42090] [4.3/4.4/4.5 Regression] I/O: Problems when reading partial records in formatted direct access files 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: 2009-11/txt/msg01758.txt.bz2 ------- Comment #9 from jvdelisle at gcc dot gnu dot org 2009-11-21 02:44 ------- Subject: Bug 42090 Author: jvdelisle Date: Sat Nov 21 02:44:01 2009 New Revision: 154397 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=154397 Log: 2009-11-20 Jerry DeLisle PR libgfortran/42090 Backport from trunk. * io/transfer.c (skip_record): Set bytes_left_subrecord to zero after skipping the remaining bytes in the record. (next_record_r): Call skip_record with the number of bytes_left to be skipped. Modified: branches/gcc-4_3-branch/libgfortran/ChangeLog branches/gcc-4_3-branch/libgfortran/io/transfer.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42090