From e436ca61b442d082ca1996a5092b8cdbf2d1f87f Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 19 Dec 2022 21:04:13 +0100 Subject: [PATCH] Fix uninitialized variables on quick return path (Reference-LAPACK PR775) --- lapack-netlib/SRC/dlarra.f | 2 +- lapack-netlib/SRC/dlarrc.f | 6 +++--- lapack-netlib/SRC/dlarre.f | 4 ++-- lapack-netlib/SRC/slarra.f | 2 +- lapack-netlib/SRC/slarrc.f | 6 +++--- lapack-netlib/SRC/slarre.f | 4 ++-- 6 files changed, 12 insertions(+), 12 deletions(-) diff --git a/lapack-netlib/SRC/dlarra.f b/lapack-netlib/SRC/dlarra.f index 2fb30cd76..a62a079da 100644 --- 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 diff --git a/lapack-netlib/SRC/dlarrc.f b/lapack-netlib/SRC/dlarrc.f index 55a17626a..d3fea5966 100644 --- 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' ) diff --git a/lapack-netlib/SRC/dlarre.f b/lapack-netlib/SRC/dlarre.f index afbfe6379..70f59b829 100644 --- 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' ) diff --git a/lapack-netlib/SRC/slarra.f b/lapack-netlib/SRC/slarra.f index be81b0f69..2e27383e1 100644 --- 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 diff --git a/lapack-netlib/SRC/slarrc.f b/lapack-netlib/SRC/slarrc.f index 060051539..2100d1b3d 100644 --- 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' ) diff --git a/lapack-netlib/SRC/slarre.f b/lapack-netlib/SRC/slarre.f index 34dd71fd9..2e34ca5a6 100644 --- 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' )