Browse Source
Merge pull request #3849 from martin-frbg/lapack769
Fix uninitialized M in quick return from D/SLARRD (Reference-LAPACK PR769)
tags/v0.3.22^2
Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with
2 additions and
10 deletions
-
lapack-netlib/SRC/dlarrd.f
-
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 |
|
|
|
|
|
|
|
|
|
|
|
@@ -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 |
|
|
|
|
|
|
|
|
