projects / platform / upstream / lapack.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 939b459)
corrected a typo from the previos commit: CALL pwd( PATH, NOUT ) replaced by CALL...
authorigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 21 Dec 2011 06:49:03 +0000 (06:49 +0000)
committerigor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971>
Wed, 21 Dec 2011 06:49:03 +0000 (06:49 +0000)
TESTING/LIN/dchksy.f patch | blob | history

diff --git a/TESTING/LIN/dchksy.f b/TESTING/LIN/dchksy.f
index 40efc54fc07ab6c5eb3f18915ccd449a350cdd6a..f3feb84a4083fec8c61e92b6e89c2419e550c147 100644 (file)
--- a/TESTING/LIN/dchksy.f
+++ b/TESTING/LIN/dchksy.f
@@ -255,7 +255,7 @@
 *     Test the error exits
 *
       IF( TSTERR )
-     $   CALL pwd( PATH, NOUT )
+     $   CALL DERRSY( PATH, NOUT )
       INFOT = 0
 *
 *     Set the minimum block size for which the block routine should
Domain: System / Base;