floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #4230 from martin-frbg/lapack907 

Increase work array size in S/DTGEX2 to avoid overflow (Reference-LAPACK PR 907)
This commit is contained in:
Martin Kroeker 2023-09-16 20:13:13 +02:00 committed by GitHub
parent 0606102460 1285b53e39
commit 466e6115d3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/dtgex2.f
View File

@ -254,7 +254,7 @@
$ THRESHA, THRESHB $ THRESHA, THRESHB
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
INTEGER IWORK( LDST ) INTEGER IWORK( LDST + 2 )
DOUBLE PRECISION AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ), DOUBLE PRECISION AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ),
$ IRCOP( LDST, LDST ), LI( LDST, LDST ), $ IRCOP( LDST, LDST ), LI( LDST, LDST ),
$ LICOP( LDST, LDST ), S( LDST, LDST ), $ LICOP( LDST, LDST ), S( LDST, LDST ),

2
lapack-netlib/SRC/stgex2.f
View File

@ -255,7 +255,7 @@
$ THRESHA, THRESHB $ THRESHA, THRESHB
* .. * ..
* .. Local Arrays .. * .. Local Arrays ..
INTEGER IWORK( LDST ) INTEGER IWORK( LDST + 2 )
REAL AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ), REAL AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ),
$ IRCOP( LDST, LDST ), LI( LDST, LDST ), $ IRCOP( LDST, LDST ), LI( LDST, LDST ),
$ LICOP( LDST, LDST ), S( LDST, LDST ), $ LICOP( LDST, LDST ), S( LDST, LDST ),