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

martin-frbg · web-flow · commit ecbbecd48a12 · 2025-07-09T23:23:56.000+02:00
diff --git a/LAPACKE/src/lapacke_strsen.c b/LAPACKE/src/lapacke_strsen.c
@@ -77,6 +77,12 @@ lapack_int API_SUFFIX(LAPACKE_strsen)( 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 = (float*)LAPACKE_malloc( sizeof(float) * lwork );
     if( work == NULL ) {

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