FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PR libfortran/PR21797

Browse source 
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
This commit is contained in:
Steven G. Kargl 2005-06-12 21:00:57 +00:00 • committed by Thomas Koenig
parent 181786a7dd
commit bf0606afc1
3 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
libgfortran/ChangeLog
View file

@ -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

4
libgfortran/generated/exp_c4.c
View file

@ -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);
}

4
libgfortran/m4/cexp.m4
View file

@ -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);
}