@@ -42,7 +42,6 @@ void BLASFUNC(zpotrs_(char*, BLASINT*, BLASINT*, complex double*,
42
42
//https://github.com/xianyi/OpenBLAS/issues/695
43
43
CTEST (potrf , bug_695 ){
44
44
45
- #ifdef BUILD_COMPLEX
46
45
openblas_complex_float A1 [100 ] =
47
46
{
48
47
openblas_make_complex_float (5.8525753 , +0.0 ),
@@ -151,11 +150,11 @@ CTEST(potrf, bug_695){
151
150
152
151
blasint n = 10 ;
153
152
blasint info [1 ];
153
+ #ifdef BUILD_COMPLEX
154
154
BLASFUNC (cpotrf )(& up , & n , (float * )(A1 ), & n , info );
155
155
//printf("%g+%g*I\n", creal(A1[91]), cimag(A1[91]));
156
156
#endif
157
157
158
- #ifdef BUILD_COMPLEX16
159
158
openblas_complex_double A2 [100 ] =
160
159
{
161
160
openblas_make_complex_double (3.0607147216796875 , +0.0 ),
@@ -284,9 +283,9 @@ CTEST(potrf, bug_695){
284
283
};
285
284
char lo = 'L' ;
286
285
blasint nrhs = 2 ;
286
+ #ifdef BUILD_COMPLEX16
287
287
BLASFUNC (zpotrs )(& lo , & n , & nrhs , (double * )(A2 ), & n , (double * )(B ), & n , info );
288
288
#endif
289
- #ifdef BUILD_COMPLEX
290
289
// note that this is exactly equal to A1
291
290
openblas_complex_float A3 [100 ] =
292
291
{
@@ -391,6 +390,7 @@ CTEST(potrf, bug_695){
391
390
openblas_make_complex_float (-0.9617417 , -1.2486815 ),
392
391
openblas_make_complex_float (3.4629636 , +0.0 )
393
392
};
393
+ #ifdef BUILD_COMPLEX
394
394
BLASFUNC (cpotrf )(& up , & n , (float * )(A3 ), & n , info );
395
395
// printf("%g+%g*I\n", creal(A3[91]), cimag(A3[91]));
396
396
if (isnan (CREAL (A3 [91 ])) || isnan (CIMAG (A3 [91 ]))) {
0 commit comments