Skip to content

Commit f43a41d

Browse files
committed
dtgex2: add 2 to iwork length to prevent OOB interaction in Dtgsy2
1 parent ae2f14f commit f43a41d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

SRC/dtgex2.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -254,7 +254,7 @@ SUBROUTINE DTGEX2( WANTQ, WANTZ, N, A, LDA, B, LDB, Q, LDQ, Z,
254254
$ THRESHA, THRESHB
255255
* ..
256256
* .. Local Arrays ..
257-
INTEGER IWORK( LDST )
257+
INTEGER IWORK( LDST + 2 )
258258
DOUBLE PRECISION AI( 2 ), AR( 2 ), BE( 2 ), IR( LDST, LDST ),
259259
$ IRCOP( LDST, LDST ), LI( LDST, LDST ),
260260
$ LICOP( LDST, LDST ), S( LDST, LDST ),

0 commit comments

Comments
 (0)