From patchwork Fri Aug 3 14:18:37 2012 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: Mikael Morin X-Patchwork-Id: 174994 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 F1E7E2C0092 for ; Sat, 4 Aug 2012 00:21:11 +1000 (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=1344608472; h=Comment: DomainKey-Signature:Received:Received:Received:Received:Received: Message-ID:Date:From:User-Agent:MIME-Version:To:Subject: Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe: List-Archive:List-Post:List-Help:Sender:Delivered-To; bh=qM3qJoZ GL/DntZc8I6hiq+2Pmxk=; b=ZGmPEi7O62D9PTBOuP1CwFmgMKv1ZH4b1bK23Ol bDpRJgXvGqFR/z8tvWmQonN/h2RvpSiHBooarbgibX1YSLSXgEf4b6pFQ0vQegQr Fk7Sa/HYpDASBbRTtNayvYAHQ9CNNhMwkcxbSis795mzr2RbpG20dgCrm/k35D3W uJY4= 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-SFR-UUID:Message-ID:Date:From:User-Agent:MIME-Version:To:Subject:Content-Type:X-IsSubscribed:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=gKBY9EaEHMQ8Z0KdkFBiyxV44G2O0/fOw+H11lTuEHKgBoDEUASWwsmvAkT6vy SsCE+Z9MRjFnxHpiNIXL6bhr9Su2WOIAdiHrtm1t8Ad85e1257DB9Zvh8YGPzIKI 1PIUFf6kvpN0ahlmqBZcI+KkwxqnIP6sLT9mY/HZcudlA=; Received: (qmail 15037 invoked by alias); 3 Aug 2012 14:21:05 -0000 Received: (qmail 15018 invoked by uid 22791); 3 Aug 2012 14:21:02 -0000 X-SWARE-Spam-Status: No, hits=-1.5 required=5.0 tests=AWL, BAYES_00, RCVD_IN_DNSWL_NONE, TW_NR, T_RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from smtp25.services.sfr.fr (HELO smtp25.services.sfr.fr) (93.17.128.118) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Fri, 03 Aug 2012 14:20:48 +0000 Received: from filter.sfr.fr (localhost [127.0.0.1]) by msfrf2504.sfr.fr (SMTP Server) with ESMTP id 07563700004B; Fri, 3 Aug 2012 16:20:47 +0200 (CEST) Received: from [192.168.1.58] (37.15.72.86.rev.sfr.net [86.72.15.37]) by msfrf2504.sfr.fr (SMTP Server) with ESMTP id BAC2170000A0; Fri, 3 Aug 2012 16:20:46 +0200 (CEST) X-SFR-UUID: 20120803142046765.BAC2170000A0@msfrf2504.sfr.fr Message-ID: <501BDDBD.2060308@sfr.fr> Date: Fri, 03 Aug 2012 16:18:37 +0200 From: Mikael Morin User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:10.0.5) Gecko/20120709 Thunderbird/10.0.5 MIME-Version: 1.0 To: gfortran , gcc-patches Subject: [Patch, fortran] PR fortran/54166 ICE on array section (4.8 regression) X-IsSubscribed: yes 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 Hello, here is the fix for the regression I have introduced with my assumed rank bounds patch. Will test and commit as obvious. Mikael 2012-08-02 Mikael Morin PR fortran/54166 * trans-array.c (set_loop_bounds): Access specinfo using spec_dim. 2012-08-02 Mikael Morin PR fortran/54166 * gfortran.dg/array_5.f90: New test. Index: trans-array.c =================================================================== --- trans-array.c (révision 190099) +++ trans-array.c (copie de travail) @@ -4503,9 +4503,9 @@ set_loop_bounds (gfc_loopinfo *loop) else if (INTEGER_CST_P (info->start[dim]) && !INTEGER_CST_P (specinfo->start[spec_dim]) && integer_onep (info->stride[dim]) - == integer_onep (specinfo->stride[dim]) + == integer_onep (specinfo->stride[spec_dim]) && INTEGER_CST_P (info->stride[dim]) - == INTEGER_CST_P (specinfo->stride[dim])) + == INTEGER_CST_P (specinfo->stride[spec_dim])) loopspec[n] = ss; /* We don't work out the upper bound. else if (INTEGER_CST_P (info->finish[n])