OpenMathLib/OpenBLAS
1
0
Fork 0
mirror of https://github.com/OpenMathLib/OpenBLAS synced 2026-06-05 00:17:12 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Avoid out of bounds accesses in SCAL when INFO <0

Browse Source
This commit is contained in:
Martin Kroeker
2025-05-01 11:56:07 +02:00
committed by GitHub
parent d48a2fc469
commit 4c0445aed1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -504,17 +504,17 @@
* Undo scaling if necessary
*
50 CONTINUE
IF( SCALEA ) THEN
IF( SCALEA .AND. INFO.GT.0) THEN
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WR( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR )
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1, WI( INFO+1 ),
$ MAX( N-INFO, 1 ), IERR )
IF( INFO.GT.0 ) THEN
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WR, N,
$ IERR )
CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, ILO-1, 1, WI, N,
$ IERR )
END IF
END IF
*
WORK( 1 ) = SROUNDUP_LWORK(MAXWRK)