Fix potential bounds error (Reference-LAPACK PR 1018)

This commit is contained in:
Martin Kroeker 2024-05-23 23:12:19 +02:00 committed by GitHub
parent 791e015024
commit 7ebbe3cc72
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 2 additions and 2 deletions

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