53 lines
1.6 KiB
Diff
53 lines
1.6 KiB
Diff
|
http://sourceware.org/ml/gdb-patches/2016-01/msg00135.html
|
||
|
|
Subject: Re: [PATCH 0/6] fortran: multi-dimensional subarrays with strides
|
||
|
|
|
||
|
|
|
||
|
|
--vkogqOf2sHV7VnPd
|
||
|
|
Content-Type: text/plain; charset=us-ascii
|
||
|
|
Content-Disposition: inline
|
||
|
|
|
||
|
|
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
|
||
|
|
|
||
|
|
--vkogqOf2sHV7VnPd
|
||
|
|
Content-Type: text/plain; charset=us-ascii
|
||
|
|
Content-Disposition: inline; filename=1
|
||
|
|
|
||
|
|
--- 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)
|
||
|
|
|
||
|
|
--vkogqOf2sHV7VnPd--
|
||
|
|
|