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

Fix typos and prototype in MSVC dotu test

This commit is contained in:
Martin Kroeker 2018-02-17 13:52:56 +01:00 committed by GitHub
parent 06baf1cf2f
commit 854057c9f9
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utest/test_dotu.c
View File

@ -40,9 +40,9 @@ CTEST( zdotu,zdotu_n_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};
#ifdef __CTEST_MSVC #ifdef __CTEST_MSVC
_Dcomplex result1=openblas_make_complex_double{0.0,0.0}; _Dcomplex result1=openblas_make_complex_double(0.0,0.0);
_Dcomplex result2=openblas_make_complex_double(-1.0000,3.0000); _Dcomplex result2=openblas_make_complex_double(-1.0000,3.0000);
result1=BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY); result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
#else #else
_Complex double result1=openblas_make_complex_double(0.0,0.0); _Complex double result1=openblas_make_complex_double(0.0,0.0);
_Complex double result2=openblas_make_complex_double(-1.0000,3.0000); _Complex double result2=openblas_make_complex_double(-1.0000,3.0000);
@ -60,9 +60,9 @@ CTEST(zdotu, zdotu_offset_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};
#ifdef __CTEST_MSVC #ifdef __CTEST_MSVC
_Dcomplex result1=openblas_make_complex_double{0.0,0.0}; _Dcomplex result1=openblas_make_complex_double(0.0,0.0);
_Dcomplex result2=openblas_make_complex_double(-9.0000,32.0000); _Dcomplex result2=openblas_make_complex_double(-9.0000,32.0000);
result1=BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY); result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
#else #else
_Complex double result1=openblas_make_complex_double(0.0,0.0); _Complex double result1=openblas_make_complex_double(0.0,0.0);
_Complex double result2=openblas_make_complex_double(-9.0000,32.0000); _Complex double result2=openblas_make_complex_double(-9.0000,32.0000);