Fix uninitialized variables on quick return path (Reference-LAPACK PR775)

2022-12-19 21:04:13 +01:00 · 2022-12-19 21:04:13 +01:00 · e436ca61b4
parent 4c12fc5f5d
commit e436ca61b4
6 changed files with 12 additions and 12 deletions
--- a/lapack-netlib/SRC/dlarra.f
+++ b/lapack-netlib/SRC/dlarra.f
@ -164,6 +164,7 @@
 *     .. Executable Statements ..
 *
      INFO = 0
+      NSPLIT = 1
 *
 *     Quick return if possible
 *
@ -172,7 +173,6 @@
      END IF
 *
 *     Compute splitting points
-      NSPLIT = 1
      IF(SPLTOL.LT.ZERO) THEN
 *        Criterion based on absolute off-diagonal value
         TMP1 = ABS(SPLTOL)* TNRM
--- a/lapack-netlib/SRC/dlarrc.f
+++ b/lapack-netlib/SRC/dlarrc.f
@ -167,6 +167,9 @@
 *     .. Executable Statements ..
 *
      INFO = 0
+      LCNT = 0
+      RCNT = 0
+      EIGCNT = 0
 *
 *     Quick return if possible
 *
@ -174,9 +177,6 @@
         RETURN
      END IF
 *
-      LCNT = 0
-      RCNT = 0
-      EIGCNT = 0
      MATT = LSAME( JOBT, 'T' )


--- a/lapack-netlib/SRC/dlarre.f
+++ b/lapack-netlib/SRC/dlarre.f
@ -367,6 +367,8 @@
 *

      INFO = 0
+      NSPLIT = 0
+      M = 0
 *
 *     Quick return if possible
 *
@ -384,8 +386,6 @@
         IRANGE = INDRNG
      END IF

-      M = 0
-
 *     Get machine constants
      SAFMIN = DLAMCH( 'S' )
      EPS = DLAMCH( 'P' )
--- a/lapack-netlib/SRC/slarra.f
+++ b/lapack-netlib/SRC/slarra.f
@ -164,6 +164,7 @@
 *     .. Executable Statements ..
 *
      INFO = 0
+      NSPLIT = 1
 *
 *     Quick return if possible
 *
@ -172,7 +173,6 @@
      END IF
 *
 *     Compute splitting points
-      NSPLIT = 1
      IF(SPLTOL.LT.ZERO) THEN
 *        Criterion based on absolute off-diagonal value
         TMP1 = ABS(SPLTOL)* TNRM
--- a/lapack-netlib/SRC/slarrc.f
+++ b/lapack-netlib/SRC/slarrc.f
@ -167,6 +167,9 @@
 *     .. Executable Statements ..
 *
      INFO = 0
+      LCNT = 0
+      RCNT = 0
+      EIGCNT = 0
 *
 *     Quick return if possible
 *
@ -174,9 +177,6 @@
         RETURN
      END IF
 *
-      LCNT = 0
-      RCNT = 0
-      EIGCNT = 0
      MATT = LSAME( JOBT, 'T' )


--- a/lapack-netlib/SRC/slarre.f
+++ b/lapack-netlib/SRC/slarre.f
@ -367,6 +367,8 @@
 *

      INFO = 0
+      NSPLIT = 0
+      M = 0
 *
 *     Quick return if possible
 *
@ -384,8 +386,6 @@
         IRANGE = INDRNG
      END IF

-      M = 0
-
 *     Get machine constants
      SAFMIN = SLAMCH( 'S' )
      EPS = SLAMCH( 'P' )