From bf0606afc1f4ffb6f59ebccb30813c60aa122b56 Mon Sep 17 00:00:00 2001
From: "Steven G. Kargl" <kargls@comcast.net>
Date: Sun, 12 Jun 2005 21:00:57 +0000
Subject: [PATCH] PR libfortran/PR21797
2005-06-12 Steven G. Kargl <kargls@comcast.net>
Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/PR21797
* m4/cexp.m4 (csqrt`'q): Add type qualifyer to
sqrt and fabs.
* generated/exp_c4.c: Regenerated.
Co-Authored-By: Thomas Koenig <Thomas.Koenig@online.de>
From-SVN: r100864
---
libgfortran/ChangeLog | 8 ++++++++
libgfortran/generated/exp_c4.c | 4 ++--
libgfortran/m4/cexp.m4 | 4 ++--
3 files changed, 12 insertions(+), 4 deletions(-)
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0d164fe1920d..d596186836a2 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,11 @@
+2005-06-12 Steven G. Kargl <kargls@comcast.net>
+ Thomas Koenig <Thomas.Koenig@online.de>
+
+ PR libfortran/PR21797
+ * m4/cexp.m4 (csqrt`'q): Add type qualifyer to
+ sqrt and fabs.
+ * generated/exp_c4.c: Regenerated.
+
2005-06-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19155
diff --git a/libgfortran/generated/exp_c4.c b/libgfortran/generated/exp_c4.c
index 149d7d0d34e0..c4bc41bad203 100644
--- a/libgfortran/generated/exp_c4.c
+++ b/libgfortran/generated/exp_c4.c
@@ -108,7 +108,7 @@ csqrtf (GFC_COMPLEX_4 z)
}
else
{
- COMPLEX_ASSIGN (v, fabsf (sqrt (re)),
+ COMPLEX_ASSIGN (v, fabsf (sqrtf (re)),
copysignf (0.0, im));
}
}
@@ -116,7 +116,7 @@ csqrtf (GFC_COMPLEX_4 z)
{
GFC_REAL_4 r;
- r = sqrtf (0.5 * fabs (im));
+ r = sqrtf (0.5 * fabsf (im));
COMPLEX_ASSIGN (v, copysignf (r, im), r);
}
diff --git a/libgfortran/m4/cexp.m4 b/libgfortran/m4/cexp.m4
index 13e34da841d9..7b92b790447e 100644
--- a/libgfortran/m4/cexp.m4
+++ b/libgfortran/m4/cexp.m4
@@ -109,7 +109,7 @@ csqrt`'q (complex_type z)
}
else
{
- COMPLEX_ASSIGN (v, fabs`'q (sqrt (re)),
+ COMPLEX_ASSIGN (v, fabs`'q (sqrt`'q (re)),
copysign`'q (0.0, im));
}
}
@@ -117,7 +117,7 @@ csqrt`'q (complex_type z)
{
real_type r;
- r = sqrt`'q (0.5 * fabs (im));
+ r = sqrt`'q (0.5 * fabs`'q (im));
COMPLEX_ASSIGN (v, copysign`'q (r, im), r);
}
--
GitLab