Update zdot.c
authorMartin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Mon, 13 Mar 2017 17:08:00 +0000 (18:08 +0100)
committerGitHub <noreply@github.com>
Mon, 13 Mar 2017 17:08:00 +0000 (18:08 +0100)
interface/zdot.c

index 7eb8371..cd956b0 100644 (file)
@@ -160,6 +160,7 @@ OPENBLAS_COMPLEX_FLOAT CNAME(blasint n, FLOAT *x, blasint incx, FLOAT *y, blasin
 
   if (n <= 0) {
 #ifdef FORCE_USE_STACK
+    OPENBLAS_COMPLEX_FLOAT zero=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0, 0.0);
     *result = zero;
 //     CREAL(*result) = 0.0;
 //     CIMAG(*result) = 0.0;