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

Merge pull request #4716 from martin-frbg/lapack1018 

Fix a potential bounds error in ?UNHR_COL/?ORHR_COL (Reference-LAPACK PR 1018)
This commit is contained in:
Martin Kroeker 2024-05-26 14:01:31 +02:00 committed by GitHub
parent cf7e668fe8 7ebbe3cc72
commit 3833190454
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
4 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -420,7 +420,7 @@
* *
JBTEMP2 = JB - 2 JBTEMP2 = JB - 2
DO J = JB, JB+JNB-2 DO J = JB, JB+JNB-2
DO I = J-JBTEMP2, NB DO I = J-JBTEMP2, MIN( NB, N )
T( I, J ) = CZERO T( I, J ) = CZERO
END DO END DO
END DO END DO

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

@ -419,7 +419,7 @@
* *
JBTEMP2 = JB - 2 JBTEMP2 = JB - 2
DO J = JB, JB+JNB-2 DO J = JB, JB+JNB-2
DO I = J-JBTEMP2, NB DO I = J-JBTEMP2, MIN( NB, N )
T( I, J ) = ZERO T( I, J ) = ZERO
END DO END DO
END DO END DO

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

@ -419,7 +419,7 @@
* *
JBTEMP2 = JB - 2 JBTEMP2 = JB - 2
DO J = JB, JB+JNB-2 DO J = JB, JB+JNB-2
DO I = J-JBTEMP2, NB DO I = J-JBTEMP2, MIN( NB, N )
T( I, J ) = ZERO T( I, J ) = ZERO
END DO END DO
END DO END DO

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

@ -420,7 +420,7 @@
* *
JBTEMP2 = JB - 2 JBTEMP2 = JB - 2
DO J = JB, JB+JNB-2 DO J = JB, JB+JNB-2
DO I = J-JBTEMP2, NB DO I = J-JBTEMP2, MIN( NB, N )
T( I, J ) = CZERO T( I, J ) = CZERO
END DO END DO
END DO END DO