Fix potential bounds error (Reference-LAPACK PR 1018)

2024-05-23 23:11:14 +02:00 · 2024-05-23 23:11:14 +02:00 · 791e015024
parent 4dd715d220
commit 791e015024
1 changed files with 1 additions and 1 deletions
--- a/lapack-netlib/SRC/sorhr_col.f
+++ b/lapack-netlib/SRC/sorhr_col.f
@ -419,7 +419,7 @@
 *
         JBTEMP2 = JB - 2
         DO J = JB, JB+JNB-2
-            DO I = J-JBTEMP2, NB
+            DO I = J-JBTEMP2, MIN( NB, N )
               T( I, J ) = ZERO
            END DO
         END DO