From 00cc78cfbab5f7a844f4c675bc9bd9d2aec30e48 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 3 Dec 2022 16:19:20 +0100
Subject: [PATCH] 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