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

fix zdotu argument passing in utest_ext on windows (#4691) 

* fix passing of results on windows
This commit is contained in:
Martin Kroeker 2024-05-13 14:50:50 +02:00 committed by GitHub
parent 1ab9f50561
commit b45a78c6e9
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
utest/test_extensions/test_cgemv_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) 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); result = BLASFUNC(cdotu)(&lda, a_ptr, &one, x_ptr, &inc_x);
#endif
x_res[0] = CREAL(result); x_res[0] = CREAL(result);
x_res[1] = CIMAG(result); x_res[1] = CIMAG(result);
a_ptr += lda * 2; a_ptr += lda * 2;

8
utest/test_extensions/test_zgemv_t.c
View File

@ -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) for (i = 0; i < n * inc_x; i += inc_x)
{ {
result = BLASFUNC(zdotu)(&lda, a_ptr, &one, x_ptr, &inc_x); #ifdef RETURN_BY_STACK
x_res[0] = CREAL(result); 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); x_res[1] = CIMAG(result);
a_ptr += lda * 2; a_ptr += lda * 2;
x_res += 2 * inc_x; x_res += 2 * inc_x;