floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix uninitialized M in quick return (Reference-LAPACK 769)

This commit is contained in:
Martin Kroeker 2022-12-03 16:19:20 +01:00 committed by GitHub
parent 9307b0fabc
commit 00cc78cfba
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/SRC/slarrd.f
View File

@ -381,6 +381,7 @@
* .. Executable Statements .. * .. Executable Statements ..
* *
INFO = 0 INFO = 0
M = 0
* *
* Quick return if possible * Quick return if possible
* *
@ -424,14 +425,9 @@
END IF END IF
* Initialize error flags * Initialize error flags
INFO = 0
NCNVRG = .FALSE. NCNVRG = .FALSE.
TOOFEW = .FALSE. TOOFEW = .FALSE.
* Quick return if possible
M = 0
IF( N.EQ.0 ) RETURN
* Simplification: * Simplification:
IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1 IF( IRANGE.EQ.INDRNG .AND. IL.EQ.1 .AND. IU.EQ.N ) IRANGE = 1