[Bug fortran/18977] New: LAPACK test xeigtsts segfaults

["Thomas dot Koenig at online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

I was running the LAPACK with -O3
with 20041212 (snapshot) with Steve Kargl's I/O patch
from http://gcc.gnu.org/ml/gcc-patches/2004-12/msg00844.html
applied.   The test ran OK until xeigtsts segfaulted:

make[1]: Entering directory `/home/zfkts/zfkts/LAPACK/TESTING'
Testing REAL LAPACK linear equation routines
./xlintsts < stest.in > stest.out 2>&1
NEP: Testing Nonsymmetric Eigenvalue Problem routines
./xeigtsts < nep.in > snep.out 2>&1
SEP: Testing Symmetric Eigenvalue Problem routines
./xeigtsts < sep.in > ssep.out 2>&1
SVD: Testing Singular Value Decomposition routines
./xeigtsts < svd.in > ssvd.out 2>&1
SEC: Testing REAL Eigen Condition Routines
./xeigtsts < sec.in > sec.out 2>&1
make[1]: *** [sec.out] Error 139
make[1]: Leaving directory `/home/zfkts/zfkts/LAPACK/TESTING'
make: *** [testing] Error 2
$ gdb ./xeigtsts
GNU gdb Red Hat Linux (6.1post-1.20040607.17rh)
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB.  Type "show warranty" for details.
This GDB was configured as "ia64-redhat-linux-gnu"...Using host libthread_db
library "/lib/tls/libthread_db.so.1".

(gdb) r < sec.in
Starting program: /home/zfkts/zfkts/LAPACK/TESTING/xeigtsts < sec.in
 Tests of the Nonsymmetric eigenproblem condition estimation routines
 SLALN2, SLASY2, SLANV2, SLAEXC, STRSYL, STREXC, STRSNA, STRSEN, SLAQTR

 Relative machine precision (EPS) =     0.119209E-06
 Safe minimum (SFMIN)             =     0.117549E-37

 Routines pass computational tests if test ratio is less than   20.00


 SEC routines passed the tests of the error exits ( 35 tests done)

Program received signal SIGSEGV, Segmentation fault.
slasy2_ (ltranl=Variable "ltranl" is not available.
) at slasy2.f:362
362                 TMP( K ) = TMP( K ) - ( TEMP*T16( K, J ) )*TMP( J )
Current language:  auto; currently fortran
(gdb) p tmp
$1 = (0, -nan(0x7f6f34), 10797277, -1437623.12)

Reverting Steve's patch, bubblestrapping and rerunning it made
no difference.

This is a regression from about a month ago, and possibly a target
problem.

-- 
           Summary: LAPACK test xeigtsts segfaults
           Product: gcc
           Version: 4.0.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: Thomas dot Koenig at online dot de
                CC: gcc-bugs at gcc dot gnu dot org
  GCC host triplet: ia64-unknown-linux-gnu


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=18977