From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 30386 invoked by alias); 19 Jun 2010 00:58:51 -0000 Received: (qmail 30298 invoked by alias); 19 Jun 2010 00:58:40 -0000 Date: Sat, 19 Jun 2010 00:58:00 -0000 Message-ID: <20100619005840.30297.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/44477] Sequential I/O with END FILE: File position should be at EoF 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: 2010-06/txt/msg01888.txt.bz2 ------- Comment #5 from jvdelisle at gcc dot gnu dot org 2010-06-19 00:58 ------- Subject: Bug 44477 Author: jvdelisle Date: Sat Jun 19 00:58:28 2010 New Revision: 161020 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=161020 Log: 2010-06-18 Jerry DeLisle PR libfortran/44477 * io/file_pos.c (st_endfile): Add check for ENDFILE when file is already positioned after the EOF marker. Use find_or_create_unit instead of find_unit. If unit is not connected, connect it and create the file with default settings. * io/transfer.c (data_transfer_init): Add check for attempted READ or WRITE when file is already positioned after the EOF marker. Modified: trunk/libgfortran/ChangeLog trunk/libgfortran/io/file_pos.c trunk/libgfortran/io/transfer.c -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44477