Browse Source

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

* fix passing of results on windows
tags/v0.3.28^2
Martin Kroeker GitHub 1 year ago
parent
commit
b45a78c6e9
No known key found for this signature in database GPG Key ID: B5690EEEBB952194
2 changed files with 10 additions and 2 deletions
  1. +4
    -0
      utest/test_extensions/test_cgemv_t.c
  2. +6
    -2
      utest/test_extensions/test_zgemv_t.c

+ 4
- 0
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;


+ 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) 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); x_res[1] = CIMAG(result);
a_ptr += lda * 2; a_ptr += lda * 2;
x_res += 2 * inc_x; x_res += 2 * inc_x;


Loading…
Cancel
Save