fix dimension used in nancheck (Reference-LAPACK PR 1135)

martin-frbg · web-flow · commit f4e517705051 · 2025-06-15T19:16:58.000+02:00
diff --git a/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c b/lapack-netlib/LAPACKE/src/lapacke_zunmlq.c
@@ -48,8 +48,10 @@ lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans,
     }
 #ifndef LAPACK_DISABLE_NAN_CHECK
     if( LAPACKE_get_nancheck() ) {
+      lapack_int r;
         /* Optionally check input matrices for NaNs */
-        if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) {
+        r = LAPACKE_lsame( side, 'l' ) ? m : n;
+        if( LAPACKE_zge_nancheck( matrix_layout, k, r, a, lda ) ) {
             return -7;
         }
         if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) {

Original file line number	Diff line number	Diff line change
`@@ -48,8 +48,10 @@ lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans,`
`48`	`48`	`}`
`49`	`49`	`#ifndef LAPACK_DISABLE_NAN_CHECK`
`50`	`50`	`if( LAPACKE_get_nancheck() ) {`
	`51`	`+ lapack_int r;`
`51`	`52`	`/* Optionally check input matrices for NaNs */`
`52`		`- if( LAPACKE_zge_nancheck( matrix_layout, k, m, a, lda ) ) {`
	`53`	`+ r = LAPACKE_lsame( side, 'l' ) ? m : n;`
	`54`	`+ if( LAPACKE_zge_nancheck( matrix_layout, k, r, a, lda ) ) {`
`53`	`55`	`return -7;`
`54`	`56`	`}`
`55`	`57`	`if( LAPACKE_zge_nancheck( matrix_layout, m, n, c, ldc ) ) {`