Replace gnu _real_, _imag_ extensions in initializers
authorMartin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Sun, 12 Mar 2017 23:40:11 +0000 (00:40 +0100)
committerGitHub <noreply@github.com>
Sun, 12 Mar 2017 23:40:11 +0000 (00:40 +0100)
interface/zdot.c

index d4d0fab..4f83187 100644 (file)
@@ -160,9 +160,9 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasin
 
   if (n <= 0) {
 #ifdef FORCE_USE_STACK
-    //*result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
-       CREAL(*result) = 0.0;
-       CIMAG(*result) = 0.0;
+    *result = OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
+//     CREAL(*result) = 0.0;
+//     CIMAG(*result) = 0.0;
     return;
 #else
     return zero;