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

Fix initialization of complex variables for clang

This commit is contained in:
Martin Kroeker 2018-02-16 11:32:55 +01:00 committed by GitHub
parent 65f81e03d9
commit 26bef7c491
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utest/utest_main2.c
View File

@ -266,10 +266,8 @@ CTEST( zdotu,zdotu_n_1)
int N=1,incX=1,incY=1; int N=1,incX=1,incY=1;
double x1[]={1.0,1.0}; double x1[]={1.0,1.0};
double y1[]={1.0,2.0}; double y1[]={1.0,2.0};
double x2[]={1.0,1.0}; _Complex double result1=openblas_make_complex_double(0.0,0.0);
double y2[]={1.0,2.0}; _Complex double result2=openblas_make_complex_double(-1.0,3.0);
_Complex result1=0.0;
_Complex result2={-1.0000+3.0000*I};
//OpenBLAS //OpenBLAS
result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY); result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
@ -283,10 +281,9 @@ CTEST(zdotu, zdotu_offset_1)
int N=1,incX=1,incY=1; int N=1,incX=1,incY=1;
double x1[]={1.0,2.0,3.0,4.0}; double x1[]={1.0,2.0,3.0,4.0};
double y1[]={5.0,6.0,7.0,8.0}; double y1[]={5.0,6.0,7.0,8.0};
double x2[]={1.0,2.0,3.0,4.0}; _Complex double result1=openblas_make_complex_double(0.0,0.0);
double y2[]={5.0,6.0,7.0,8.0}; _Complex double result2=openblas_make_complex_double(-9.0,32.0);
_Complex result1=0.0;
_Complex result2={-9.0000+32.0000*I};
//OpenBLAS //OpenBLAS
result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY); result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);