diff --git a/src/common/kahan_sum.F b/src/common/kahan_sum.F
index 8b15eea6a3..5d3f4a282a 100644
--- a/src/common/kahan_sum.F
+++ b/src/common/kahan_sum.F
@@ -440,7 +440,7 @@ PURE FUNCTION kahan_dot_product_z2(array1, array2) RESULT(ks)
       COMPLEX(KIND=dp)                                   :: c, t, y
       INTEGER                                            :: i1, i2, n1, n2
 
-      ks = dzero; t = dzero; y = dzero; c = dzero
+      ks = zzero; t = zzero; y = zzero; c = zzero
 
       n1 = SIZE(array1, 1)
       n2 = SIZE(array1, 2)