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

Fix uninitialized variables on quick return path (Reference-LAPACK PR775)

This commit is contained in:
Martin Kroeker 2022-12-19 21:04:13 +01:00 committed by GitHub
parent 4c12fc5f5d
commit e436ca61b4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
6 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/dlarra.f
View File

@ -164,6 +164,7 @@
* .. Executable Statements .. * .. Executable Statements ..
* *
INFO = 0 INFO = 0
NSPLIT = 1
* *
* Quick return if possible * Quick return if possible
* *
@ -172,7 +173,6 @@
END IF END IF
* *
* Compute splitting points * Compute splitting points
NSPLIT = 1
IF(SPLTOL.LT.ZERO) THEN IF(SPLTOL.LT.ZERO) THEN
* Criterion based on absolute off-diagonal value * Criterion based on absolute off-diagonal value
TMP1 = ABS(SPLTOL)* TNRM TMP1 = ABS(SPLTOL)* TNRM

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

@ -167,6 +167,9 @@
* .. Executable Statements .. * .. Executable Statements ..
* *
INFO = 0 INFO = 0
LCNT = 0
RCNT = 0
EIGCNT = 0
* *
* Quick return if possible * Quick return if possible
* *
@ -174,9 +177,6 @@
RETURN RETURN
END IF END IF
* *
LCNT = 0
RCNT = 0
EIGCNT = 0
MATT = LSAME( JOBT, 'T' ) MATT = LSAME( JOBT, 'T' )

4
lapack-netlib/SRC/dlarre.f
View File

@ -367,6 +367,8 @@
* *
INFO = 0 INFO = 0
NSPLIT = 0
M = 0
* *
* Quick return if possible * Quick return if possible
* *
@ -384,8 +386,6 @@
IRANGE = INDRNG IRANGE = INDRNG
END IF END IF
M = 0
* Get machine constants * Get machine constants
SAFMIN = DLAMCH( 'S' ) SAFMIN = DLAMCH( 'S' )
EPS = DLAMCH( 'P' ) EPS = DLAMCH( 'P' )

2
lapack-netlib/SRC/slarra.f
View File

@ -164,6 +164,7 @@
* .. Executable Statements .. * .. Executable Statements ..
* *
INFO = 0 INFO = 0
NSPLIT = 1
* *
* Quick return if possible * Quick return if possible
* *
@ -172,7 +173,6 @@
END IF END IF
* *
* Compute splitting points * Compute splitting points
NSPLIT = 1
IF(SPLTOL.LT.ZERO) THEN IF(SPLTOL.LT.ZERO) THEN
* Criterion based on absolute off-diagonal value * Criterion based on absolute off-diagonal value
TMP1 = ABS(SPLTOL)* TNRM TMP1 = ABS(SPLTOL)* TNRM

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

@ -167,6 +167,9 @@
* .. Executable Statements .. * .. Executable Statements ..
* *
INFO = 0 INFO = 0
LCNT = 0
RCNT = 0
EIGCNT = 0
* *
* Quick return if possible * Quick return if possible
* *
@ -174,9 +177,6 @@
RETURN RETURN
END IF END IF
* *
LCNT = 0
RCNT = 0
EIGCNT = 0
MATT = LSAME( JOBT, 'T' ) MATT = LSAME( JOBT, 'T' )

4
lapack-netlib/SRC/slarre.f
View File

@ -367,6 +367,8 @@
* *
INFO = 0 INFO = 0
NSPLIT = 0
M = 0
* *
* Quick return if possible * Quick return if possible
* *
@ -384,8 +386,6 @@
IRANGE = INDRNG IRANGE = INDRNG
END IF END IF
M = 0
* Get machine constants * Get machine constants
SAFMIN = SLAMCH( 'S' ) SAFMIN = SLAMCH( 'S' )
EPS = SLAMCH( 'P' ) EPS = SLAMCH( 'P' )