Fix potential bounds error (Reference-LAPACK PR 1018)

2024-05-23 23:08:27 +02:00
parent 700ea74a37
commit e2c1a1e269
1 changed files with 2 additions and 2 deletions
--- a/lapack-netlib/SRC/cunhr_col.f
+++ b/lapack-netlib/SRC/cunhr_col.f
@@ -420,7 +420,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 ) = CZERO
            END DO
         END DO
@@ -436,4 +436,4 @@
 *
 *     End of CUNHR_COL
 *
-      END
+      END