From b45a78c6e9eae6ea46f25478f5aab257a53a8e21 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Mon, 13 May 2024 14:50:50 +0200 Subject: [PATCH] fix zdotu argument passing in utest_ext on windows (#4691) * fix passing of results on windows --- utest/test_extensions/test_cgemv_t.c | 4 ++++ utest/test_extensions/test_zgemv_t.c | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/utest/test_extensions/test_cgemv_t.c b/utest/test_extensions/test_cgemv_t.c index ceb0b4bc5..dd95d32ba 100644 --- a/utest/test_extensions/test_cgemv_t.c +++ b/utest/test_extensions/test_cgemv_t.c @@ -74,7 +74,11 @@ static void matrix_vector_product(blasint n, blasint m, blasint lda, blasint inc for (i = 0; i < n * inc_x; i+= inc_x) { +#ifdef RETURN_BY_STACK + BLASFUNC(cdotu)(&result, &lda, a_ptr, &one, x_ptr, &inc_x); +#else result = BLASFUNC(cdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); +#endif x_res[0] = CREAL(result); x_res[1] = CIMAG(result); a_ptr += lda * 2; diff --git a/utest/test_extensions/test_zgemv_t.c b/utest/test_extensions/test_zgemv_t.c index a575a0e4a..4e419ad1b 100644 --- a/utest/test_extensions/test_zgemv_t.c +++ b/utest/test_extensions/test_zgemv_t.c @@ -74,8 +74,12 @@ static void matrix_vector_product(blasint n, blasint m, blasint lda, blasint inc for (i = 0; i < n * inc_x; i += inc_x) { - result = BLASFUNC(zdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); - x_res[0] = CREAL(result); +#ifdef RETURN_BY_STACK + BLASFUNC(zdotu)(&result, &lda, a_ptr, &one, x_ptr, &inc_x); +#else + result = BLASFUNC(zdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); +#endif + x_res[0] = CREAL(result); x_res[1] = CIMAG(result); a_ptr += lda * 2; x_res += 2 * inc_x;