From patchwork Tue Jul 23 21:55:12 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: pchang9@cs.wisc.edu X-Patchwork-Id: 261225 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 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (Client CN "localhost", Issuer "www.qmailtoaster.com" (not verified)) by ozlabs.org (Postfix) with ESMTPS id DFA932C00B3 for ; Wed, 24 Jul 2013 07:55:32 +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:subject:from:to:mime-version:content-type; q= dns; s=default; b=DwIavqcezFcbo8ToJfaLI/c/cH0usH04lUclahnfUARypy g7Rs3kdpgk99VwCfLYVRlusSmSn8xCesMQXDaPsJxybdEwR7pxpp4iOI1EF4aRfV vI3c+ZweqqfBYmLoZDxK/SX2S+eOyPdAHj+X4H64+cNEIZGeQeqalzepQETIo= 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:subject:from:to:mime-version:content-type; s= default; bh=VXVjYk5TEemZKaMZ0KGo5yWG7TM=; b=Yq6Gaf4MCSEBtihdLG0R qkGNTDE6dzZGRAnNey9iiquE/qAUPlrW4xMsdzgl3M4yTL1v/XedVHabNHdtR2Pd HC7uXEcMwr4/xvt3KI0ZwCQ5AscvEvoM11DnIiP0RsK9p1jTejuKRq90tfPmS9AA cbFjSJO0k1ZO3itzcEyC+1k= Received: (qmail 26417 invoked by alias); 23 Jul 2013 21:55:21 -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 26398 invoked by uid 89); 23 Jul 2013 21:55:21 -0000 X-Spam-SWARE-Status: No, score=-3.3 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_MED, RCVD_IN_HOSTKARMA_W, RDNS_NONE, SPF_HELO_PASS, SPF_PASS autolearn=ham version=3.3.1 X-Spam-User: qpsmtpd, 2 recipients Received: from Unknown (HELO sandstone.cs.wisc.edu) (128.105.6.39) by sourceware.org (qpsmtpd/0.84/v0.84-167-ge50287c) with ESMTP; Tue, 23 Jul 2013 21:55:20 +0000 Received: from webmail.cs.wisc.edu (george.cs.wisc.edu [128.105.7.110]) by sandstone.cs.wisc.edu (8.14.1/8.14.1) with ESMTP id r6NLtCCK022354; Tue, 23 Jul 2013 16:55:12 -0500 Received: from 146.151.118.255 (SquirrelMail authenticated user pchang9) by webmail.cs.wisc.edu with HTTP; Tue, 23 Jul 2013 16:55:12 -0500 Message-ID: Date: Tue, 23 Jul 2013 16:55:12 -0500 Subject: [Patch, PR 57804] Wasted work in gfc_trans_transfer() From: pchang9@cs.wisc.edu To: gcc-patches@gcc.gnu.org, fortran@gcc.gnu.org User-Agent: SquirrelMail/1.4.22 MIME-Version: 1.0 X-Virus-Found: No Hi, The problem appears in revision 201034 in version 4.9. I attached a one-line patch that fixes it. I also reported this problem at http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57804 Bootstrap and regression-tested on x86_64-linux. In method "gfc_trans_transfer()" in gcc/fortran/trans-io.c, the loop on line 2261 should break immediately after "seen_vector" is set to "true". 2013-07-23 Chang * trans-io.c (gfc_trans_transfer): Exit loop after setting seen_vector. -Chang Index: gcc/fortran/trans-io.c =================================================================== --- gcc/fortran/trans-io.c (revision 201034) +++ gcc/fortran/trans-io.c (working copy) @@ -2260,7 +2260,10 @@ { for (n = 0; n < ref->u.ar.dimen; n++) if (ref->u.ar.dimen_type[n] == DIMEN_VECTOR) - seen_vector = true; + { + seen_vector = true; + break; + } } if (seen_vector && last_dt == READ) Index: gcc/fortran/trans-io.c =================================================================== --- gcc/fortran/trans-io.c (revision 201034) +++ gcc/fortran/trans-io.c (working copy) @@ -2260,7 +2260,10 @@ { for (n = 0; n < ref->u.ar.dimen; n++) if (ref->u.ar.dimen_type[n] == DIMEN_VECTOR) - seen_vector = true; + { + seen_vector = true; + break; + } } if (seen_vector && last_dt == READ)