Allocate IWORK to hold at least the one element for workspace queries

martin-frbg · web-flow · commit 2d56b7e6a2af · 2025-07-09T23:26:12.000+02:00
diff --git a/LAPACKE/src/lapacke_dtrsen.c b/LAPACKE/src/lapacke_dtrsen.c
@@ -78,6 +78,12 @@ lapack_int API_SUFFIX(LAPACKE_dtrsen)( int matrix_layout, char job, char compq,
             info = LAPACK_WORK_MEMORY_ERROR;
             goto exit_level_0;
         }
+    } else {
+        iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) );
+        if( iwork == NULL ) {
+            info = LAPACK_WORK_MEMORY_ERROR;
+            goto exit_level_0;
+        }
     }
     work = (double*)LAPACKE_malloc( sizeof(double) * lwork );
     if( work == NULL ) {

Original file line number	Diff line number	Diff line change
`@@ -78,6 +78,12 @@ lapack_int API_SUFFIX(LAPACKE_dtrsen)( int matrix_layout, char job, char compq,`
`78`	`78`	`info = LAPACK_WORK_MEMORY_ERROR;`
`79`	`79`	`goto exit_level_0;`
`80`	`80`	`}`
	`81`	`+ } else {`
	`82`	`+ iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) );`
	`83`	`+ if( iwork == NULL ) {`
	`84`	`+ info = LAPACK_WORK_MEMORY_ERROR;`
	`85`	`+ goto exit_level_0;`
	`86`	`+ }`
`81`	`87`	`}`
`82`	`88`	`work = (double)LAPACKE_malloc( sizeof(double) lwork );`
`83`	`89`	`if( work == NULL ) {`