Browse Source

fix zdotu result on windows

pull/4691/head
Martin Kroeker GitHub 2 years ago
parent
commit
172bd00748
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
1 changed files with 6 additions and 2 deletions
  1. +6
    -2
      utest/test_extensions/test_zgemv_t.c

+ 6
- 2
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)
{
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;


Loading…
Cancel
Save