http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52307
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Severity|normal |critical
--- Comment #1 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2012-02-19
08:00:36 UTC ---
There are many more bugs. This occurs with
xlintsts < stest.in
and (using the debugger) the segfault is
Program received signal SIGSEGV, Segmentation fault.
0x00000000100b2bd0 in spbtrf (uplo='\000', n=0, kd=0, ab=..., ldab=0, info=0,
_uplo=<optimized out>) at spbtrf.f:336
336 WORK( I, J ) = ZERO
SUBROUTINE SPBTRF( UPLO, N, KD, AB, LDAB, INFO )
*
* -- LAPACK computational routine (version 3.4.0) --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* November 2011
*
* .. Scalar Arguments ..
CHARACTER UPLO
INTEGER INFO, KD, LDAB, N
* ..
* .. Array Arguments ..
REAL AB( LDAB, * )
* ..
*
* =====================================================================
*
* .. Parameters ..
REAL ONE, ZERO
PARAMETER ( ONE = 1.0E+0, ZERO = 0.0E+0 )
INTEGER NBMAX, LDWORK
PARAMETER ( NBMAX = 32, LDWORK = NBMAX+1 )
* ..
* .. Local Scalars ..
INTEGER I, I2, I3, IB, II, J, JJ, NB
* ..
* .. Local Arrays ..
REAL WORK( LDWORK, NBMAX )
...
* Zero the lower triangle of the work array.
*
DO 90 J = 1, NB
DO 80 I = J + 1, NB
WORK( I, J ) = ZERO
80 CONTINUE
90 CONTINUE
Trying to reduce this further.
