From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 31222 invoked by alias); 20 Dec 2005 05:06:13 -0000 Received: (qmail 31203 invoked by uid 48); 20 Dec 2005 05:06:10 -0000 Date: Tue, 20 Dec 2005 05:06:00 -0000 Message-ID: <20051220050610.31202.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug libfortran/25305] [4.0 regression]: libfortran failed fma3d in SPEC CPU 2K 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-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2005-12/txt/msg02068.txt.bz2 List-Id: ------- Comment #15 from jvdelisle at gcc dot gnu dot org 2005-12-20 05:06 ------- Evidently I do not have authorization to commit to the 4.0 branch. (I tried twice) Here is a completed and ready testcase. I strongly suggest people move on to 4.1 if at all possible. If someone else wants to commit this, please do. ! { dg-do run } ! PR25305 Check for no end-of-record error on write after read. ! Derived from example given in PR by Grigory Zagorodnev. CHARACTER RD*8 CHARACTER WR*8 CHARACTER(1) C1 RD='N 1' READ (RD(1:2),*) C1 IF (C1.NE.'N') CALL ABORT WRITE (WR,*) 'passed' IF (WR.NE.' passed') CALL ABORT() END -- jvdelisle at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- AssignedTo|jvdelisle at gcc dot gnu dot|unassigned at gcc dot gnu |org |dot org Status|ASSIGNED |NEW http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25305