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)

Browse Source
This commit is contained in:
Martin Kroeker
2022-12-19 21:04:13 +01:00
committed by GitHub
parent 4c12fc5f5d
commit e436ca61b4
6 changed files with 12 additions and 12 deletions
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 ..
*
INFO = 0
NSPLIT = 1
*
* Quick return if possible
*
@@ -172,7 +173,6 @@
END IF
*
* Compute splitting points
NSPLIT = 1
IF(SPLTOL.LT.ZERO) THEN
* Criterion based on absolute off-diagonal value
TMP1 = ABS(SPLTOL)* TNRM

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

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

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

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

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

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

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

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

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

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