From a2b4f824f6be3e18c106938b8296b8eb00a22c88 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Tue, 11 Jul 2023 16:50:30 +0200 Subject: [PATCH] fix allocation type of work array --- lapack-netlib/LAPACKE/src/lapacke_cgedmd.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lapack-netlib/LAPACKE/src/lapacke_cgedmd.c b/lapack-netlib/LAPACKE/src/lapacke_cgedmd.c index 041efbb6d..6c77e199e 100644 --- a/lapack-netlib/LAPACKE/src/lapacke_cgedmd.c +++ b/lapack-netlib/LAPACKE/src/lapacke_cgedmd.c @@ -51,7 +51,7 @@ lapack_int LAPACKE_cgedmd( int matrix_layout, char jobs, char jobz, char jobr, float* work = NULL; lapack_int* iwork = NULL; lapack_complex_float zwork_query; - lapack_complex_float work_query; + float work_query; lapack_int iwork_query; if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_cgedmd", -1 );