From 9307b0fabc147573580e9c470dedce2b6f77bc86 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 3 Dec 2022 16:17:54 +0100 Subject: [PATCH 1/2] Fix uninitialized M in quick return (Reference-LAPACK 769) --- lapack-netlib/SRC/dlarrd.f | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lapack-netlib/SRC/dlarrd.f b/lapack-netlib/SRC/dlarrd.f index 08dfd02c3..ea1896adf 100644 --- a/lapack-netlib/SRC/dlarrd.f +++ b/lapack-netlib/SRC/dlarrd.f @@ -381,6 +381,7 @@ * .. Executable Statements .. * INFO = 0 + M = 0 * * Quick return if possible * @@ -424,14 +425,9 @@ END IF * Initialize error flags - INFO = 0 NCNVRG = .FALSE. TOOFEW = .FALSE. -* Quick return if possible - M = 0 - IF( N.EQ.0 ) RETURN - * Simplification: IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1 From 00cc78cfbab5f7a844f4c675bc9bd9d2aec30e48 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Sat, 3 Dec 2022 16:19:20 +0100 Subject: [PATCH 2/2] Fix uninitialized M in quick return (Reference-LAPACK 769) --- lapack-netlib/SRC/slarrd.f | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lapack-netlib/SRC/slarrd.f b/lapack-netlib/SRC/slarrd.f index 7df8e95fc..21405baa6 100644 --- a/lapack-netlib/SRC/slarrd.f +++ b/lapack-netlib/SRC/slarrd.f @@ -381,6 +381,7 @@ * .. Executable Statements .. * INFO = 0 + M = 0 * * Quick return if possible * @@ -424,14 +425,9 @@ END IF * Initialize error flags - INFO = 0 NCNVRG = .FALSE. TOOFEW = .FALSE. -* Quick return if possible - M = 0 - IF( N.EQ.0 ) RETURN - * Simplification: IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1