Update test_dotu.c

utest/test_dotu.c

@@ -39,25 +39,22 @@ CTEST( zdotu,zdotu_n_1)
 	blasint N=1,incX=1,incY=1;
 	double x1[]={1.0,1.0};
 	double y1[]={1.0,2.0};
-#ifdef __CTEST_MSVC
-        openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
-	openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000);
-	result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
+	
+	openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
+        openblas_complex_double result2=openblas_make_complex_double(-1.0000,3.0000);
+#ifdef RETURN_BY_STACK
+	BLASFUNC(zdotu)(&result1,&N,x1,&incX,y1,&incY);
 #else
-	_Complex double result1=openblas_make_complex_double(0.0,0.0);
-	_Complex double result2=openblas_make_complex_double(-1.0000,3.0000);
 	result1=BLASFUNC(zdotu)(&N,x1,&incX,y1,&incY);
 #endif
-
+	
 #ifdef OPENBLAS_COMPLEX_STRUCT
 	ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
 	ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);
-#else	
+#else
 	ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
 	ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);
 #endif
-//	printf("\%lf,%lf\n",creal(result1),cimag(result1));
-
 }
 
 CTEST(zdotu, zdotu_offset_1)
@@ -65,24 +62,20 @@ CTEST(zdotu, zdotu_offset_1)
 	blasint N=1,incX=1,incY=1;
 	double x1[]={1.0,2.0,3.0,4.0};
 	double y1[]={5.0,6.0,7.0,8.0};
-#ifdef __CTEST_MSVC
-        _Dcomplex result1=openblas_make_complex_double(0.0,0.0);
-	_Dcomplex result2=openblas_make_complex_double(-9.0000,32.0000);
-	result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
+	
+	openblas_complex_double result1=openblas_make_complex_double(0.0,0.0);
+        openblas_complex_double result2=openblas_make_complex_double(-9.0,32.0);
+#ifdef RETURN_BY_STACK
+	BLASFUNC(zdotu)(&result1,&N,x1+1,&incX,y1+1,&incY);
 #else
-	_Complex double result1=openblas_make_complex_double(0.0,0.0);
-	_Complex double result2=openblas_make_complex_double(-9.0000,32.0000);
 	result1=BLASFUNC(zdotu)(&N,x1+1,&incX,y1+1,&incY);
 #endif
-
+	
 #ifdef OPENBLAS_COMPLEX_STRUCT
-	ASSERT_DBL_NEAR_TOL(result1.real,result2.real,DOUBLE_EPS);
-	ASSERT_DBL_NEAR_TOL(result1.imag,result2.imag,DOUBLE_EPS);
-#else	
+	ASSERT_DBL_NEAR_TOL(result1.real, result2.real, DOUBLE_EPS);
+	ASSERT_DBL_NEAR_TOL(result1.imag, result2.imag, DOUBLE_EPS);
+#else
 	ASSERT_DBL_NEAR_TOL(creal(result1), creal(result2), DOUBLE_EPS);
 	ASSERT_DBL_NEAR_TOL(cimag(result1), cimag(result2), DOUBLE_EPS);
 #endif
-//	printf("\%lf,%lf\n",creal(result1),cimag(result1));
-
 }
-