Fix implicit variable

Author: grisuthedragon

BLAS/TESTING/sblat3.f

@@ -3146,7 +3146,7 @@ SUBROUTINE SCHK6( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
                            IF( NULL )THEN
                               ISAME( 12 ) = LSE( CS, CC, LCC )
                            ELSE
-                              ISAME( 12 ) = LSERES( 'GE', ' ', M, N,
+                              ISAME( 12 ) = LSERES( 'GE', ' ', N, N,
      $                                          CS, CC, LDC )
                            END IF
                            ISAME( 13 ) = LDCS.EQ.LDC