1 files changed, 11 insertions, 7 deletions
diff --git a/contrib/libf2c/libF77/z_cos.c b/contrib/libf2c/libF77/z_cos.c
index 2d4a24d28186..a811bbecc65b 100644
--- a/contrib/libf2c/libF77/z_cos.c
+++ b/contrib/libf2c/libF77/z_cos.c
@@ -2,14 +2,18 @@
 
 #ifdef KR_headers
 double sin(), cos(), sinh(), cosh();
-VOID z_cos(r, z) doublecomplex *r, *z;
+VOID z_cos(resx, z) doublecomplex *resx, *z;
 #else
 #undef abs
-#include "math.h"
-void z_cos(doublecomplex *r, doublecomplex *z)
+#include <math.h>
+void z_cos(doublecomplex *resx, doublecomplex *z)
 #endif
 {
-	double zi = z->i, zr = z->r;
-	r->r =   cos(zr) * cosh(zi);
-	r->i = - sin(zr) * sinh(zi);
-	}
+doublecomplex res;
+
+res.r = cos(z->r) * cosh(z->i);
+res.i = - sin(z->r) * sinh(z->i);
+
+resx->r = res.r;
+resx->i = res.i;
+}