From 5958ffc9b6b01046f160c6afa085444cb3b0204a Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 16 Jun 2021 09:43:39 +0200 Subject: [PATCH] Declare DZASUM as EXTERNAL --- lapack-netlib/TESTING/EIG/zbdt05.f | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lapack-netlib/TESTING/EIG/zbdt05.f b/lapack-netlib/TESTING/EIG/zbdt05.f index bbf0208b7..f262351e4 100644 --- a/lapack-netlib/TESTING/EIG/zbdt05.f +++ b/lapack-netlib/TESTING/EIG/zbdt05.f @@ -158,9 +158,8 @@ * .. External Functions .. LOGICAL LSAME INTEGER IDAMAX - DOUBLE PRECISION DASUM, DLAMCH, ZLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, ZLANGE - DOUBLE PRECISION DZASUM + DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE + EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEMM