From patchwork Fri Apr 11 23:10:51 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jerry DeLisle X-Patchwork-Id: 338647 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]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by ozlabs.org (Postfix) with ESMTPS id E04F61400FD for ; Sat, 12 Apr 2014 09:11:13 +1000 (EST) DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:date:from:mime-version:to:subject:content-type :content-transfer-encoding; q=dns; s=default; b=GAYH/NSyCvePEAc/ HyRQIx7uObypvmw+zLBz9Kmn7jMHSZKBCZ18R574/mZs0P67kUfeIIxVqG+ddgUg OQdebeW/jz2q3BczvKUayHm014xZ/QHWwX31JPGuBJ9WbwzatINWCDVV6tKKMzkT 1cDR9qYcCltVeVxMZZGpn5qH4EA= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender :message-id:date:from:mime-version:to:subject:content-type :content-transfer-encoding; s=default; bh=Rb8UTp9V9+NlTNHF2SP3CM faB28=; b=wknPrUkDud1qsPNLEGVUFsH1MzN9CkGla5t7BK9+9Z+yGtELZNbA9S +Fpg4Esss0stk8WWfZjf5xkRHzRcBtYv3lUGivRmibRY3gdVAgjr3FichrHim2z6 KEyUnom/kXAYgqSCSo7H6LhpY2ZPKYkdFKQBjdUJSLa/AKNbiffpY= Received: (qmail 11840 invoked by alias); 11 Apr 2014 23:11:01 -0000 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 Received: (qmail 11823 invoked by uid 89); 11 Apr 2014 23:11:00 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.7 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 X-Spam-User: qpsmtpd, 2 recipients X-HELO: mta11.charter.net Received: from mta11.charter.net (HELO mta11.charter.net) (216.33.127.80) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 11 Apr 2014 23:10:58 +0000 Received: from imp11 ([10.20.200.11]) by mta11.charter.net (InterMail vM.8.01.05.09 201-2260-151-124-20120717) with ESMTP id <20140411231056.KBYL6169.mta11.charter.net@imp11>; Fri, 11 Apr 2014 19:10:56 -0400 Received: from pavilion.localdomain ([68.5.43.244]) by imp11 with smtp.charter.net id onAv1n00Q5G55b005nAwcQ; Fri, 11 Apr 2014 19:10:56 -0400 X-Authority-Analysis: v=2.0 cv=F7QP7ddN c=1 sm=1 a=mw+G4YjGptsaRR05zBLClw==:17 a=3C7RHhrQF8gA:10 a=R3m8KhOmf0UA:10 a=yUnIBFQkZM0A:10 a=8nJEP1OIZ-IA:10 a=hOpmn2quAAAA:8 a=pDBSszs2X7VhGrWCIBIA:9 a=wPNLvfGTeEIA:10 a=mw+G4YjGptsaRR05zBLClw==:117 X-Auth-id: anZkZWxpc2xlQGNoYXJ0ZXIubmV0 Message-ID: <5348767B.4070805@charter.net> Date: Fri, 11 Apr 2014 16:10:51 -0700 From: Jerry DeLisle User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Thunderbird/24.4.0 MIME-Version: 1.0 To: gfortran , gcc patches Subject: [patch, libgfortran] [4.7/4.8/4.9/4.10 Regression] list directed io from array results in end of file I plan to commit the following patch to 4.10, 4.9, 4.8, and 4.7. It is a partial revert of the patch to PR38199 which is an optimization of internal unit reads. The original patch was too aggressive. After this revert, I will investigate further to see if I can refine it further. Regards, Jerry Index: unit.c =================================================================== --- unit.c (revision 209325) +++ unit.c (working copy) @@ -382,9 +382,7 @@ is_trim_ok (st_parameter_dt *dtp) { /* Check rank and stride. */ - if (dtp->internal_unit_desc - && (GFC_DESCRIPTOR_RANK (dtp->internal_unit_desc) > 1 - || GFC_DESCRIPTOR_STRIDE(dtp->internal_unit_desc, 0) != 1)) + if (dtp->internal_unit_desc) return false; /* Format strings can not have 'BZ' or '/'. */ if (dtp->common.flags & IOPARM_DT_HAS_FORMAT)