diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-06-12 21:00:57 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-06-12 21:00:57 +0000 |
| commit | bf0606afc1f4ffb6f59ebccb30813c60aa122b56 (patch) | |
| tree | 26a392e0b7a273d059bc4a3d6b7c0aa423c5fd67 /libgfortran | |
| parent | 181786a7dd6dfd3b3640cb4bb6f7b275858ecb02 (diff) | |
| download | gcc-bf0606afc1f4ffb6f59ebccb30813c60aa122b56.tar.gz | |
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
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 8 | ||||
| -rw-r--r-- | libgfortran/generated/exp_c4.c | 4 | ||||
| -rw-r--r-- | libgfortran/m4/cexp.m4 | 4 |
3 files changed, 12 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 0d164fe1920..d596186836a 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 149d7d0d34e..c4bc41bad20 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 13e34da841d..7b92b790447 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); } |