Fix uninitialized M when quick return in DLARRD and SLARRD

chrwarm · Nov 29, 2022 · 6ae0fbe · 6ae0fbe
1 parent a72090a
commit 6ae0fbe
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 10 deletions.
diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f
@@ -381,6 +381,7 @@ SUBROUTINE DLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS,
 *     .. Executable Statements ..
 *
       INFO = 0
+      M = 0
 *
 *     Quick return if possible
 *
@@ -424,14 +425,9 @@ SUBROUTINE DLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS,
       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
 

diff --git a/SRC/slarrd.f b/SRC/slarrd.f
@@ -381,6 +381,7 @@ SUBROUTINE SLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS,
 *     .. Executable Statements ..
 *
       INFO = 0
+      M = 0
 *
 *     Quick return if possible
 *
@@ -424,14 +425,9 @@ SUBROUTINE SLARRD( RANGE, ORDER, N, VL, VU, IL, IU, GERS,
       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