Commit fd138de

authored

Merge pull request #1129 from martin-frbg/issue1128

Avoid memory corruption with non-finite inputs in ?GEEV

2 parents 8b24458 + d724843 commit fd138deCopy full SHA for fd138de

File tree

-4

lines changed

-4

lines changed

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -496,7 +496,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR,`
`496`	`496`	`* Undo scaling if necessary`
`497`	`497`	`*`
`498`	`498`	`50 CONTINUE`
`499`		`- IF( SCALEA ) THEN`
	`499`	`+ IF( SCALEA .AND. INFO.GE.0) THEN`
`500`	`500`	`CALL CLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`501`	`501`	`$ W( INFO+1 ),`
`502`	`502`	`$ MAX( N-INFO, 1 ), IERR )`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -517,7 +517,7 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL,`
`517`	`517`	`* Undo scaling if necessary`
`518`	`518`	`*`
`519`	`519`	`50 CONTINUE`
`520`		`- IF( SCALEA ) THEN`
	`520`	`+ IF( SCALEA .AND. INFO.GE.0) THEN`
`521`	`521`	`CALL DLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`522`	`522`	`$ WR( INFO+1 ),`
`523`	`523`	`$ MAX( N-INFO, 1 ), IERR )`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -519,7 +519,7 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL,`
`519`	`519`	`* Undo scaling if necessary`
`520`	`520`	`*`
`521`	`521`	`50 CONTINUE`
`522`		`- IF( SCALEA ) THEN`
	`522`	`+ IF( SCALEA .AND. INFO.GE.0) THEN`
`523`	`523`	`CALL SLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`524`	`524`	`$ WR( INFO+1 ),`
`525`	`525`	`$ MAX( N-INFO, 1 ), IERR )`

Lines changed: 1 addition & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -493,7 +493,7 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR,`
`493`	`493`	`* Undo scaling if necessary`
`494`	`494`	`*`
`495`	`495`	`50 CONTINUE`
`496`		`- IF( SCALEA ) THEN`
	`496`	`+ IF( SCALEA .AND.INFO.GE.0) THEN`
`497`	`497`	`CALL ZLASCL( 'G', 0, 0, CSCALE, ANRM, N-INFO, 1,`
`498`	`498`	`$ W( INFO+1 ),`
`499`	`499`	`$ MAX( N-INFO, 1 ), IERR )`

Comments

(0)