projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: e0975e7)
Unused var JDUM described in ./TESTING/EIG/serrgg.f
authorElena Ivanova <elena.x.ivanova@oracle.com>
Wed, 7 Sep 2016 15:03:43 +0000 (17:03 +0200)
committerJulien Langou <julien.langou@ucdenver.edu>
Wed, 7 Sep 2016 15:03:43 +0000 (17:03 +0200)
See: https://github.com/Reference-LAPACK/lapack/issues/46
Thanks Elena.
Note: The other three precisions do not have the issue.

TESTING/EIG/serrgg.f patch | blob | history

diff --git a/TESTING/EIG/serrgg.f b/TESTING/EIG/serrgg.f
index 21c65ee4b867f399114a0dff5072aaf2161010e9..7192d1fdbaab2569efbb81bc0e05ad8ab5ab1f92 100644 (file)
--- a/TESTING/EIG/serrgg.f
+++ b/TESTING/EIG/serrgg.f
@@ -78,7 +78,7 @@
 *     .. Local Scalars ..
       CHARACTER*2        C2
       INTEGER            DUMMYK, DUMMYL, I, IFST, ILO, IHI, ILST, INFO,
-     $                   J, M, NCYCLE, NT, SDIM, LWORK, JDUM
+     $                   J, M, NCYCLE, NT, SDIM, LWORK
       REAL               ANRM, BNRM, DIF, SCALE, TOLA, TOLB
 *     ..
 *     .. Local Arrays ..
Domain: System / Base;