From e8271fab630f5762064b4ecc54fb6d9e7c2e731b Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 22 Jul 2023 18:20:15 +0200
Subject: [PATCH] Fix actual arguments (Reference-LAPACK PR 885)

---
 lapack-netlib/TESTING/LIN/cchktr.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lapack-netlib/TESTING/LIN/cchktr.f b/lapack-netlib/TESTING/LIN/cchktr.f
index f74a486a3..2953a2bd5 100644
--- a/lapack-netlib/TESTING/LIN/cchktr.f
+++ b/lapack-netlib/TESTING/LIN/cchktr.f
@@ -545,7 +545,7 @@
                   CALL CCOPY( N, X, 1, B( N+1 ), 1 )
                   CALL CSSCAL( N, BIGNUM, B( N+1 ), 1 )
                   CALL CLATRS3( UPLO, TRANS, DIAG, 'N', N, 2, A, LDA,
-     $                          B, MAX(1, N), SCALE3, RWORK, WORK, RWORK2,
+     $                          B, MAX(1, N), SCALE3, RWORK, RWORK2,
      $                          2*NMAX, INFO )
 *
 *                 Check error code from CLATRS3.