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

Merge pull request #3849 from martin-frbg/lapack769 

Fix uninitialized M in quick return from D/SLARRD (Reference-LAPACK PR769)
This commit is contained in:
Martin Kroeker 2022-12-03 20:08:20 +01:00 committed by GitHub
parent 0a24f631e9 00cc78cfba
commit 1c1e0682a0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 2 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -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

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

@ -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