------- Additional Comments From Thomas dot Koenig at online dot de 2005-01-26
17:23 -------
Here we go:
$ cat sl-error.f
implicit none
real x(2,2)
call foo(x)
end
subroutine foo(x)
real x(2,2)
real tmp(4), t16(4,4), btmp(4),temp
DO 120 I = 1, 4
K = 5 - I
TEMP = 1.0 / T16( K, K )
TMP( K ) = BTMP( K )*TEMP
DO 110 J = K + 1, 4
TMP( K ) = TMP( K ) - ( TEMP*T16( K, J ) )*TMP( J )
110 CONTINUE
120 CONTINUE
X( 1, 1 ) = TMP( 1 )
X( 2, 1 ) = TMP( 2 )
X( 1, 2 ) = TMP( 3 )
X( 2, 2 ) = TMP( 4 )
end
$ gfortran sl-error.f
$ ./a.out
$ gfortran -O1 sl-error.f
$ ./a.out
Segmentation fault
$ gfortran -dumpmachine
ia64-unknown-linux-gnu
$ gfortran -v
Using built-in specs.
Configured with: ../gcc-4.0-20050123/configure --prefix=/home/zfkts
--enable-languages=c,f95
Thread model: posix
gcc version 4.0.0 20050123 (experimental)
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18977
