projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f7dcf99)
Minor fix in Netlib test
authorkonstantin.i.arturov <karturov@mugwort.jf.intel.com>
Wed, 14 Dec 2016 10:00:12 +0000 (02:00 -0800)
committerkonstantin.i.arturov <karturov@mugwort.jf.intel.com>
Wed, 14 Dec 2016 10:00:12 +0000 (02:00 -0800)
TESTING/LIN/ctsqr01.f patch | blob | history

diff --git a/TESTING/LIN/ctsqr01.f b/TESTING/LIN/ctsqr01.f
index 23046cd..6fbeb83 100644 (file)
--- 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 ) )
Domain: System / Base;