working on issue https://github.com/Reference-LAPACK/lapack/issues/85

diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f
index de9890f..ededde5 100644 (file)
--- a/TESTING/LIN/cdrvls.f
+++ b/TESTING/LIN/cdrvls.f
@@ -489,7 +489,7 @@
                                  CALL CLACPY( 'Full', NROWS, NRHS,
      $                                        COPYB, LDB, B, LDB )
                               END IF
-                              SRNAMT = 'DGETSLS '
+                              SRNAMT = 'CGETSLS '
                               CALL CGETSLS( TRANS, M, N, NRHS, A,
      $                                 LDA, B, LDB, WORK, LWORK, INFO )
                               IF( INFO.NE.0 )

diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f
index 63fcc69..fe63b54 100644 (file)
--- a/TESTING/LIN/zdrvls.f
+++ b/TESTING/LIN/zdrvls.f
@@ -487,7 +487,7 @@
                                  CALL ZLACPY( 'Full', NROWS, NRHS,
      $                                        COPYB, LDB, B, LDB )
                               END IF
-                              SRNAMT = 'DGETSLS '
+                              SRNAMT = 'ZGETSLS '
                               CALL ZGETSLS( TRANS, M, N, NRHS, A,
      $                                 LDA, B, LDB, WORK, LWORK, INFO )
                               IF( INFO.NE.0 )