From 0f015d63f20e916fefc235905bdcb4743a6c69fd Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 12 Jul 2023 15:31:08 +0200 Subject: [PATCH] properly cast from zwork_query result to lzwork --- lapack-netlib/LAPACKE/src/lapacke_zgedmd.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_zgedmd.c b/lapack-netlib/LAPACKE/src/lapacke_zgedmd.c index 7c432edeb..e4ea4fe10 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_zgedmd.c +++ b/lapack-netlib/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 ) {