Fix bug in tests

Reference-LAPACK · Jul 24, 2023 · 5183843 · 5183843
1 parent dc76f29
commit 5183843
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 10 deletions.
diff --git a/BLAS/TESTING/cblat3.f b/BLAS/TESTING/cblat3.f
@@ -3815,7 +3815,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
 *                          Generate the matrix C.
 *
-                           CALL CMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,
+                           CALL CMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,
      $                                 CC, LDC, RESET, ZERO )
 *
                            NC = NC + 1
@@ -3846,7 +3846,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *                          Call the subroutine.
 *
                            IF( TRACE )
-     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO
+     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,
      $                        TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,
      $                        BETA, LDC
                            IF( REWI )
@@ -3879,7 +3879,7 @@ SUBROUTINE CCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LCE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LCERES( 'GE', ' ', M, N, CS,
+                              ISAME( 12 ) = LCERES( 'GE', ' ', N, N, CS,
      $                                      CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC

diff --git a/BLAS/TESTING/dblat3.f b/BLAS/TESTING/dblat3.f
@@ -3145,7 +3145,7 @@ SUBROUTINE DCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LDE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LDERES( 'GE', ' ', M, N,
+                              ISAME( 12 ) = LDERES( 'GE', ' ', N, N,
      $                                          CS, CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC

diff --git a/BLAS/TESTING/zblat3.f b/BLAS/TESTING/zblat3.f
@@ -3689,6 +3689,7 @@ SUBROUTINE XERBLA( SRNAME, INFO )
       SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
      $                  FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
      $                  A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
+      IMPLICIT NONE
 *
 *  Tests ZGEMMT.
 *
@@ -3829,7 +3830,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *
 *                          Generate the matrix C.
 *
-                           CALL ZMAKE( 'GE', UPLO, ' ', M, N, C, NMAX,
+                           CALL ZMAKE( 'GE', UPLO, ' ', N, N, C, NMAX,
      $                                 CC, LDC, RESET, ZERO )
 *
                            NC = NC + 1
@@ -3860,7 +3861,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
 *                          Call the subroutine.
 *
                            IF( TRACE )
-     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO
+     $                        WRITE( NTRA, FMT = 9995 )NC, SNAME, UPLO,
      $                        TRANSA, TRANSB, N, K, ALPHA, LDA, LDB,
      $                        BETA, LDC
                            IF( REWI )
@@ -3893,7 +3894,7 @@ SUBROUTINE ZCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LZE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LZERES( 'GE', ' ', M, N, CS,
+                              ISAME( 12 ) = LZERES( 'GE', ' ', N, N, CS,
      $                                      CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC

diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake
@@ -150,8 +150,8 @@ if( "${CMAKE_Fortran_FLAGS_RELEASE}" MATCHES "O[3-9]" )
 endif()
 
 
-if( FPE_EXIT )
-  message( FATAL_ERROR "Floating Point Exception (FPE) trap handlers are currently explicitly enabled in the compiler flags.  LAPACK is designed to check for and handle these cases internally and enabling these traps will likely cause LAPACK to crash.  Please re-configure with floating point exception trapping disabled." )
-endif()
+# if( FPE_EXIT )
+  # message( FATAL_ERROR "Floating Point Exception (FPE) trap handlers are currently explicitly enabled in the compiler flags.  LAPACK is designed to check for and handle these cases internally and enabling these traps will likely cause LAPACK to crash.  Please re-configure with floating point exception trapping disabled." )
+# endif()
 
 endmacro()