From e44b028fe5c6297cc260145b104b48c2d2febd51 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Mon, 13 Mar 2017 00:40:11 +0100
Subject: [PATCH] Replace gnu _real_, _imag_ extensions in initializers

---
 interface/zdot.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/interface/zdot.c b/interface/zdot.c
index d4d0fab92..4f83187e3 100644
--- a/interface/zdot.c
+++ b/interface/zdot.c
@@ -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;