devel/flang/files/patch-runtime_flang_cexp.c


1
2
3
4
5
6
7
8
9
10
11
12

--- runtime/flang/cexp.c.orig	2017-10-19 11:03:03 UTC
+++ runtime/flang/cexp.c
@@ -22,7 +22,8 @@ CMPLXFUNC_C(__mth_i_cexp)
   CMPLXARGS_C;
   float x, y, z;
   x = EXPF(real);
-  __mth_sincos(imag, &z, &y);
+  z = sinf(imag);
+  y = cosf(imag);
   y *= x;
   z *= x;
   CRETURN_F_F(y, z); /* should leave y & z in appropriate