diff options
| author | julie <julielangou@users.noreply.github.com> | 2016-02-11 03:01:43 +0000 |
|---|---|---|
| committer | julie <julielangou@users.noreply.github.com> | 2016-02-11 03:01:43 +0000 |
| commit | 5829163f3e7dd1d1d662d5a1c074f160d2f6957a (patch) | |
| tree | d838ea898809b2cbe2b18a5e94a1628c5ae4666f /SRC/ctgsen.f | |
| parent | 365668214f69f100ea15a2a038dce94fead8fbb2 (diff) | |
Applied patch provided by Dmitry Baksheev from Intel on Feb 9th 2016 on LAPACK Forum
Link: http://icl.cs.utk.edu/lapack-forum/viewtopic.php?f=13&t=4902&p=11774
Issue: ?TGSEN use of array SELECT on workspace query may SEGV
Solution: Skip use of array SELECT on workspace query
Make sense...
Diffstat (limited to 'SRC/ctgsen.f')
| -rw-r--r-- | SRC/ctgsen.f | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/SRC/ctgsen.f b/SRC/ctgsen.f index d2ba8de8..894db3be 100644 --- a/SRC/ctgsen.f +++ b/SRC/ctgsen.f @@ -515,6 +515,7 @@ * subspaces. * M = 0 + IF( .NOT.LQUERY .OR. IJOB.NE.0 ) THEN DO 10 K = 1, N ALPHA( K ) = A( K, K ) BETA( K ) = B( K, K ) @@ -526,6 +527,7 @@ $ M = M + 1 END IF 10 CONTINUE + END IF * IF( IJOB.EQ.1 .OR. IJOB.EQ.2 .OR. IJOB.EQ.4 ) THEN LWMIN = MAX( 1, 2*M*(N-M) ) |