phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

XBLAS: Fix bug in testgen_BLAS_[cz]dot2.

Browse Source 
Wrong parameter was being passed to gen_y_to_cancel.
Should pass n_fix2+1 instead of k+1, since k and n_fix2
differ by factor of two for complex case.
This commit is contained in:
yozo
2008-11-11 19:55:57 +00:00
parent f17b84a7d3
commit 618b358bfd
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
XBLAS/testing/test-dot2/testgen_BLAS_cdot2.c
+1 -1
View File
@@ -314,7 +314,7 @@ testgen_BLAS_cdot2(int n, int n_fix2, int n_mix, int norm,
} else { /* x[k] fixed, x[k+1] fixed or free. */
y_i[k] = xrand(seed);
y_i[k + 1] = xrand(seed);
gen_y_to_cancel(k+1, n, conj, alpha, head_x, tail_x, y);
gen_y_to_cancel(n_fix2 + 1, n, conj, alpha, head_x, tail_x, y);
}
break;
default: /* y_free >= 3 */
XBLAS/testing/test-dot2/testgen_BLAS_zdot2.c
+1 -1
View File
@@ -310,7 +310,7 @@ testgen_BLAS_zdot2(int n, int n_fix2, int n_mix, int norm,
} else { /* x[k] fixed, x[k+1] free or fixed. */
y_i[k] = xrand(seed);
y_i[k + 1] = xrand(seed);
gen_y_to_cancel(k+1, n, conj, alpha, head_x, tail_x, y);
gen_y_to_cancel(n_fix2 + 1, n, conj, alpha, head_x, tail_x, y);
}
break;
default: /* y_free >= 3 */