summaryrefslogtreecommitdiff
path: root/TESTING
diff options
context:
space:
mode:
authorkonstantin.i.arturov <karturov@mugwort.jf.intel.com>2016-12-14 02:00:12 -0800
committerkonstantin.i.arturov <karturov@mugwort.jf.intel.com>2016-12-14 02:00:12 -0800
commit151dfc99aa8d19a52487995d228c32db80a94591 (patch)
tree5309025fb58c13d19a1adeb3390b31b1e54be903 /TESTING
parentf7dcf99f3fa16fe2903294b70f9fca72c0494776 (diff)
downloadlapack-151dfc99aa8d19a52487995d228c32db80a94591.tar.gz
lapack-151dfc99aa8d19a52487995d228c32db80a94591.tar.bz2
lapack-151dfc99aa8d19a52487995d228c32db80a94591.zip
Minor fix in Netlib test
Diffstat (limited to 'TESTING')
-rw-r--r--TESTING/LIN/ctsqr01.f2
1 files changed, 1 insertions, 1 deletions
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 ) )