From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14858 invoked by alias); 26 Mar 2007 03:23:47 -0000 Received: (qmail 11688 invoked by alias); 26 Mar 2007 03:23:35 -0000 Date: Mon, 26 Mar 2007 03:23:00 -0000 Message-ID: <20070326032335.11684.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/31199] write with "t1" + nonadvancing transfer format gives wrong output 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-03/txt/msg02415.txt.bz2 ------- Comment #11 from jvdelisle at gcc dot gnu dot org 2007-03-26 04:23 ------- Subject: Bug 31199 Author: jvdelisle Date: Mon Mar 26 04:23:15 2007 New Revision: 123205 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=123205 Log: 2007-03-25 Jerry DeLisle PR libgfortran/31199 *io/io.h: Add saved_pos to gfc_unit structure. *io/open.c (new_unit): Initialize saved_pos. *io/transfer.c (data_transfer_init): Set max_pos to value in saved_pos. (next_record_w): Fix whitespace. (finalze_transfer): Calculate max_pos for ADVANCE="no" and save it for later use. If not ADVANCE="no" set saved_pos to zero. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/io.h trunk/libgfortran/io/open.c trunk/libgfortran/io/transfer.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31199