diff options
| author | langou <langou@users.noreply.github.com> | 2009-05-10 20:51:42 +0000 |
|---|---|---|
| committer | langou <langou@users.noreply.github.com> | 2009-05-10 20:51:42 +0000 |
| commit | 9c2e9f0bcaa09a539cc3afde42aab85a5b2b4a9e (patch) | |
| tree | 6c3495b766ce71457b33074fb52e5045f9f134b4 /SRC/stgsen.f | |
| parent | 12483e500fcc6cd69d43dffc51b4cda2f172c36a (diff) | |
| download | lapack-9c2e9f0bcaa09a539cc3afde42aab85a5b2b4a9e.tar.gz lapack-9c2e9f0bcaa09a539cc3afde42aab85a5b2b4a9e.tar.bz2 lapack-9c2e9f0bcaa09a539cc3afde42aab85a5b2b4a9e.zip | |
Bug report sent by Alexander V. Kobotov (from Intel) on Mon, 6 Apr 2009 to "lapack@cs.utk.edu".
"(d/s)tgsen.f: iwork(1) always referenced: line 455: iwork( 1 ) = LIWMIN,
documentation says that if IJOB=0 it shouldn't, so NULL pointer causes a
sigfault."
There is indeed the same problem for array work.
I have changed the header of the routines ctgsen.f, dtgsen.f, stgsen.f, and
ztgsen.f. No matter what an array needs to be of size at least 1. So
IWORK is of size at least 1. It was written in the header of the routine:
"IWORK (workspace/output) INTEGER array, dimension (MAX(1,LIWORK))"
So since IWORK is of size at least 1, there is no reason not to reference it.
When there is a workspace query with IJOB.EQ.0, IWORK(1) is set to 1.
Diffstat (limited to 'SRC/stgsen.f')
| -rw-r--r-- | SRC/stgsen.f | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/SRC/stgsen.f b/SRC/stgsen.f index 58a4ba9a..fec207b1 100644 --- a/SRC/stgsen.f +++ b/SRC/stgsen.f @@ -178,8 +178,7 @@ * message related to LWORK is issued by XERBLA. * * IWORK (workspace/output) INTEGER array, dimension (MAX(1,LIWORK)) -* IF IJOB = 0, IWORK is not referenced. Otherwise, -* on exit, if INFO = 0, IWORK(1) returns the optimal LIWORK. +* On exit, if INFO = 0, IWORK(1) returns the optimal LIWORK. * * LIWORK (input) INTEGER * The dimension of the array IWORK. LIWORK >= 1. |