From patchwork Fri Jan 8 18:44:08 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jan Kratochvil X-Patchwork-Id: 10299 Received: (qmail 33580 invoked by alias); 8 Jan 2016 18:44:16 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 33553 invoked by uid 89); 8 Jan 2016 18:44:14 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-3.7 required=5.0 tests=AWL, BAYES_00, RP_MATCHES_RCVD, SPF_HELO_PASS autolearn=ham version=3.3.2 spammy=gdb.fortran, UD:gdb.fortran, gdbfortran, sk:multid X-HELO: mx1.redhat.com Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-GCM-SHA384 encrypted) ESMTPS; Fri, 08 Jan 2016 18:44:14 +0000 Received: from int-mx13.intmail.prod.int.phx2.redhat.com (int-mx13.intmail.prod.int.phx2.redhat.com [10.5.11.26]) by mx1.redhat.com (Postfix) with ESMTPS id C2B19C09FA85; Fri, 8 Jan 2016 18:44:12 +0000 (UTC) Received: from host1.jankratochvil.net (ovpn-116-99.ams2.redhat.com [10.36.116.99]) by int-mx13.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id u08Ii9jH001702 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256 verify=NO); Fri, 8 Jan 2016 13:44:11 -0500 Date: Fri, 8 Jan 2016 19:44:08 +0100 From: Jan Kratochvil To: christoph.t.weinmann@intel.com Cc: brobecker@adacore.com, gdb-patches@sourceware.org Subject: Re: [PATCH 0/6] fortran: multi-dimensional subarrays with strides Message-ID: <20160108184408.GA22325@host1.jankratochvil.net> References: <1448976075-11456-1-git-send-email-christoph.t.weinmann@intel.com> <20151203205119.GA4098@host1.jankratochvil.net> MIME-Version: 1.0 Content-Disposition: inline In-Reply-To: <20151203205119.GA4098@host1.jankratochvil.net> User-Agent: Mutt/1.5.24 (2015-08-30) X-IsSubscribed: yes On Thu, 03 Dec 2015 21:51:19 +0100, Jan Kratochvil wrote: > Just I see - reproducible with FSF GDB trunk - one new: > FAIL: gdb.fortran/static-arrays.exp: print ar3(:2,:2,:2) > happening on x86_64 in -m32 target mode and on i686 native host. > It PASSes in the most common case of native x86_64. Tested on Fedora 23. > print ar3(:2,:2,:2)^M > -$52 = (( ( 111, 211) ( 121, 221) ) ( ( 112, 212) ( 122, 222) ) )^M > -(gdb) PASS: gdb.fortran/static-arrays.exp: print ar3(:2,:2,:2) > +$52 = (( ( 1221, 211) ( 121, 221) ) ( ( 112, 212) ( 122, 222) ) )^M > +(gdb) FAIL: gdb.fortran/static-arrays.exp: print ar3(:2,:2,:2) That was easier than I expected: gfortran -fcheck=bounds -> At line 44 of file gdb.fortran/static-arrays.f90 Fortran runtime error: Index '11' of dimension 1 of array 'ar4' above upper bound of 10 There is: integer, dimension(10,-7:3, -15:-5) :: ar4 + do i = 1, 11, 1 Jan --- gdb-7.10.50.20160106/gdb/testsuite/gdb.fortran/static-arrays.f90-orig 2016-01-08 19:19:18.421828196 +0100 +++ gdb-7.10.50.20160106/gdb/testsuite/gdb.fortran/static-arrays.f90 2016-01-08 19:41:09.778142683 +0100 @@ -38,7 +38,7 @@ subroutine sub end do end do - do i = 1, 11, 1 + do i = 1, 10, 1 do j = -7, 3, 1 do k = -15, -5, 1 ar4(i,j,k) = i*100 + (j+8)*10 + (k+16)