From 7d5e4cecc38924d6c6361237d9a097152a1fdcab Mon Sep 17 00:00:00 2001
From: Elena Ivanova <elena.x.ivanova@oracle.com>
Date: Wed, 7 Sep 2016 17:03:43 +0200
Subject: [PATCH] Unused var JDUM described in ./TESTING/EIG/serrgg.f

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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/TESTING/EIG/serrgg.f b/TESTING/EIG/serrgg.f
index 21c65ee..7192d1f 100644
--- 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 ..
-- 
2.7.4