From 6ae0fbe7aaec440323f129fb3146445468dc1fa0 Mon Sep 17 00:00:00 2001 From: Alexandr Kobotov Date: Tue, 29 Nov 2022 18:55:08 +0700 Subject: [PATCH] Fix uninitialized M when quick return in DLARRD and SLARRD --- SRC/dlarrd.f | 6 +----- SRC/slarrd.f | 6 +----- 2 files changed, 2 insertions(+), 10 deletions(-) diff --git a/SRC/dlarrd.f b/SRC/dlarrd.f index 08dfd02c30..ea1896adf2 100644 --- 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 index 7df8e95fca..21405baa6a 100644 --- 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