diff --git a/ChangeLog b/ChangeLog
index 3bbcf3688d..d719501d36 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2013-03-19  Joseph Myers  <joseph@codesourcery.com>
+
+	* math/k_casinhf.c (__kernel_casinhf): Consistently use float
+	constants.
+	* math/k_casinhl.c (__kernel_casinhl): Consistently use long
+	double constants.
+
 2013-03-19  Andreas Schwab  <schwab@suse.de>
 
 	* sysdeps/gnu/configure.in: Set libc_cv_rtldir for s390x.
diff --git a/math/k_casinhf.c b/math/k_casinhf.c
index 3152ea2f7d..7ff4b03a1c 100644
--- a/math/k_casinhf.c
+++ b/math/k_casinhf.c
@@ -79,8 +79,8 @@ __kernel_casinhf (__complex__ float x, int adj)
     }
   else
     {
-      __real__ y = (rx - ix) * (rx + ix) + 1.0;
-      __imag__ y = 2.0 * rx * ix;
+      __real__ y = (rx - ix) * (rx + ix) + 1.0f;
+      __imag__ y = 2.0f * rx * ix;
 
       y = __csqrtf (y);
 
diff --git a/math/k_casinhl.c b/math/k_casinhl.c
index 110ae33dee..aec501b079 100644
--- a/math/k_casinhl.c
+++ b/math/k_casinhl.c
@@ -86,8 +86,8 @@ __kernel_casinhl (__complex__ long double x, int adj)
     }
   else
     {
-      __real__ y = (rx - ix) * (rx + ix) + 1.0;
-      __imag__ y = 2.0 * rx * ix;
+      __real__ y = (rx - ix) * (rx + ix) + 1.0L;
+      __imag__ y = 2.0L * rx * ix;
 
       y = __csqrtl (y);