From patchwork Fri Dec 28 01:59:16 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 208361 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 8AF302C007C for ; Fri, 28 Dec 2012 12:59:30 +1100 (EST) Comment: DKIM? See http://www.dkim.org DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=gcc.gnu.org; s=default; x=1357264771; h=Comment: DomainKey-Signature:Received:Received:Received:Received:Received: Message-ID:Date:From:User-Agent:MIME-Version:To:Subject: References:In-Reply-To:Content-Type:Mailing-List:Precedence: List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender: Delivered-To; bh=jIUGTlpLRAMXSNJXGPAzsJAC7RQ=; b=aEF2Ue2vQ64s7OH NI3AYQ+RW55bLtglpuHD2RzY0cTJ2eDAJN0KDVxnlzPPge4Sn63Cod+uJTYabyEI eGoEhS1YYezOJ9/Ddc+sYx0Ok87yP6cwgdvtcmax3uB1QbOvP9IqzI+NeOKDGP0u Ul1teDHcQUidOH/XkXiWlDeujSBg= Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=default; d=gcc.gnu.org; h=Received:Received:X-SWARE-Spam-Status:X-Spam-Check-By:Received:Received:Received:X-Authority-Analysis:X-Auth-id:Message-ID:Date:From:User-Agent:MIME-Version:To:Subject:References:In-Reply-To:X-Forwarded-Message-Id:Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=q+L8a8d5Onu1ANZFsPZVbkXVY/IgyvY5k/xxy0ZrY4D8rL8ILQG2OEjd4FC88c lcQ+r8fesGYlSy+IQkkRBBalvBozs+R9zz3Y0oz+jASFOnnAjU+WdDo93aIytmqU ms3ldiLQt5UulyVVr7WGj6y9wCRCE2aKyK4Dz9JTy/wpo=; Received: (qmail 21122 invoked by alias); 28 Dec 2012 01:59:24 -0000 Received: (qmail 21110 invoked by uid 22791); 28 Dec 2012 01:59:22 -0000 X-SWARE-Spam-Status: No, hits=-2.9 required=5.0 tests=AWL, BAYES_00, KHOP_THREADED, RCVD_IN_DNSWL_NONE, RCVD_IN_HOSTKARMA_NO, RCVD_IN_HOSTKARMA_YE, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from mta41.charter.net (HELO mta41.charter.net) (216.33.127.83) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 28 Dec 2012 01:59:19 +0000 Received: from imp11 ([10.20.200.11]) by mta41.charter.net (InterMail vM.8.01.05.02 201-2260-151-103-20110920) with ESMTP id <20121228015918.BUDL10143.mta41.charter.net@imp11> for ; Thu, 27 Dec 2012 20:59:18 -0500 Received: from quava.localdomain ([71.80.154.83]) by imp11 with smtp.charter.net id gpzG1k00m1oDdDj05pzJBY; Thu, 27 Dec 2012 20:59:18 -0500 X-Authority-Analysis: v=2.0 cv=dIr+A5lb c=1 sm=1 a=rAgDqpfJr0FWWJ6IzwxP7g==:17 a=uBsBa1gr-CYA:10 a=VDKJNaShjnkA:10 a=yUnIBFQkZM0A:10 a=hOpmn2quAAAA:8 a=Ty1nLNNCWeMA:10 a=mDV3o1hIAAAA:8 a=JhaVJrXNmGfy5Hvt7GMA:9 a=wPNLvfGTeEIA:10 a=Hzfg5dMQFODjfJoV9-MA:9 a=rAgDqpfJr0FWWJ6IzwxP7g==:117 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 Message-ID: <50DCFCF4.4030500@charter.net> Date: Thu, 27 Dec 2012 17:59:16 -0800 From: Jerry DeLisle User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:17.0) Gecko/17.0 Thunderbird/17.0 MIME-Version: 1.0 To: gcc patches Subject: [patch, libgfortran] PR55818 Reading a REAL from a file which doesn't end in a new line fails References: <50DCFB22.1010509@charter.net> In-Reply-To: <50DCFB22.1010509@charter.net> X-Forwarded-Message-Id: <50DCFB22.1010509@charter.net> Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Hi, The attached patch fixes this problem by not calling hit_eof if EOF can be a valid separator. Regression tested on x86-64. OK for trunk with test case from PR? Regards, Jerry 2012-12-27 Jerry DeLisle PR libfortran/55818 * io/list_read.c (read_real): Do not call hit_eof when EOF can be treated as a value separator Index: list_read.c =================================================================== --- list_read.c (revision 194731) +++ list_read.c (working copy) @@ -1429,6 +1429,7 @@ read_real (st_parameter_dt *dtp, void * dest, int goto got_sign; CASE_SEPARATORS: + case EOF: unget_char (dtp, c); /* Single null. */ eat_separator (dtp); return; @@ -1484,6 +1485,7 @@ read_real (st_parameter_dt *dtp, void * dest, int goto got_repeat; CASE_SEPARATORS: + case EOF: if (c != '\n' && c != ',' && c != '\r' && c != ';') unget_char (dtp, c); goto done;