about summary refs log tree commit diff
path: root/math/s_catanhl.c
diff options
context:
space:
mode:
Diffstat (limited to 'math/s_catanhl.c')
-rw-r--r--math/s_catanhl.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/math/s_catanhl.c b/math/s_catanhl.c
index 4897c0c871..7e2b894257 100644
--- a/math/s_catanhl.c
+++ b/math/s_catanhl.c
@@ -58,24 +58,24 @@ __catanhl (__complex__ long double x)
     {
       long double i2 = __imag__ x * __imag__ x;
 
-      long double num = 1.0 + __real__ x;
+      long double num = 1.0L + __real__ x;
       num = i2 + num * num;
 
-      long double den = 1.0 - __real__ x;
+      long double den = 1.0L - __real__ x;
       den = i2 + den * den;
 
       long double f = num / den;
-      if (f < 0.5)
-	__real__ res = 0.25 * __ieee754_logl (f);
+      if (f < 0.5L)
+	__real__ res = 0.25L * __ieee754_logl (f);
       else
 	{
-	  num = 4.0 * __real__ x;
-	  __real__ res = 0.25 * __log1pl (num / den);
+	  num = 4.0L * __real__ x;
+	  __real__ res = 0.25L * __log1pl (num / den);
 	}
 
       den = 1 - __real__ x * __real__ x - i2;
 
-      __imag__ res = 0.5 * __ieee754_atan2l (2.0 * __imag__ x, den);
+      __imag__ res = 0.5L * __ieee754_atan2l (2.0L * __imag__ x, den);
     }
 
   return res;