Skip to content

Commit 77fac7e

Browse files
authored
Merge pull request #758 from dklyuchinskiy/lapack-fix-failure-eigtstz-zec
Fixed bug in array bounds in complex syl01 test
2 parents 9d85a7a + 9b5e2c5 commit 77fac7e

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

TESTING/EIG/csyl01.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -124,7 +124,7 @@ SUBROUTINE CSYL01( THRESH, NFAIL, RMAX, NINFO, KNT )
124124
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
125125
$ X( MAXM, MAXN ),
126126
$ DUML( MAXM ), DUMR( MAXN ),
127-
$ D( MIN( MAXM, MAXN ) )
127+
$ D( MAX( MAXM, MAXN ) )
128128
REAL SWORK( LDSWORK, 54 ), DUM( MAXN ), VM( 2 )
129129
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
130130
* ..

TESTING/EIG/zsyl01.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -124,7 +124,7 @@ SUBROUTINE ZSYL01( THRESH, NFAIL, RMAX, NINFO, KNT )
124124
$ C( MAXM, MAXN ), CC( MAXM, MAXN ),
125125
$ X( MAXM, MAXN ),
126126
$ DUML( MAXM ), DUMR( MAXN ),
127-
$ D( MIN( MAXM, MAXN ) )
127+
$ D( MAX( MAXM, MAXN ) )
128128
DOUBLE PRECISION SWORK( LDSWORK, 103 ), DUM( MAXN ), VM( 2 )
129129
INTEGER ISEED( 4 ), IWORK( MAXM + MAXN + 2 )
130130
* ..

0 commit comments

Comments
 (0)