From 151dfc99aa8d19a52487995d228c32db80a94591 Mon Sep 17 00:00:00 2001 From: "konstantin.i.arturov" Date: Wed, 14 Dec 2016 02:00:12 -0800 Subject: Minor fix in Netlib test --- TESTING/LIN/ctsqr01.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'TESTING') diff --git a/TESTING/LIN/ctsqr01.f b/TESTING/LIN/ctsqr01.f index 23046cd7..6fbeb837 100644 --- a/TESTING/LIN/ctsqr01.f +++ b/TESTING/LIN/ctsqr01.f @@ -179,7 +179,7 @@ LWORK = MAX( LWORK, INT( WORKQUERY ) ) CALL CGEMQR( 'L', 'N', M, N, K, AF, M, TQUERY, TSIZE, CF, M, $ WORKQUERY, -1, INFO) - LWORK = MAX( LWORK, INT( WORKQUERY ) + LWORK = MAX( LWORK, INT( WORKQUERY ) ) CALL CGEMQR( 'L', 'C', M, N, K, AF, M, TQUERY, TSIZE, CF, M, $ WORKQUERY, -1, INFO) LWORK = MAX( LWORK, INT( WORKQUERY ) ) -- cgit v1.2.3