floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix zdotu result on windows

This commit is contained in:
Martin Kroeker 2024-05-12 18:26:27 +02:00 committed by GitHub
parent f0560f906f
commit 172bd00748
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/test_extensions/test_zgemv_t.c
View File

@ -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(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;