properly cast from zwork_query result to lzwork

martin-frbg · web-flow · commit 914f71942247 · 2023-07-12T15:29:39.000+02:00
diff --git a/LAPACKE/src/lapacke_zgedmd.c b/LAPACKE/src/lapacke_zgedmd.c
@@ -92,7 +92,7 @@ lapack_int LAPACKE_zgedmd( int matrix_layout, char jobs, char jobz, char jobr,
     }
     lwork  = LAPACK_Z2INT( work_query );
     liwork = iwork_query;
-    lzwork = zwork_query;
+    lzwork = LAPACK_Z2INT( zwork_query );
     /* Allocate memory for work arrays */
     zwork  = (lapack_complex_double*)LAPACKE_malloc( sizeof(lapack_complex_double) * lzwork );
     if( zwork == NULL ) {

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ lapack_int LAPACKE_zgedmd( int matrix_layout, char jobs, char jobz, char jobr,`
`92`	`92`	`}`
`93`	`93`	`lwork = LAPACK_Z2INT( work_query );`
`94`	`94`	`liwork = iwork_query;`
`95`		`- lzwork = zwork_query;`
	`95`	`+ lzwork = LAPACK_Z2INT( zwork_query );`
`96`	`96`	`/* Allocate memory for work arrays */`
`97`	`97`	`zwork = (lapack_complex_double)LAPACKE_malloc( sizeof(lapack_complex_double) lzwork );`
`98`	`98`	`if( zwork == NULL ) {`