mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 16:00:46 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/24313 (complex sqrt function does not return principal value)

Browse Source 
PR libgfortran/24313
* c99_functions.c (csqrtf, csqrt): Fix choice of branch cut.  Note
  csqrt{f} were imported from glibc, and this bug is still present
  there. glibc PR is 1146.

From-SVN: r105274
This commit is contained in:
Steven G. Kargl 2005-10-11 23:35:27 +00:00 committed by Steven G. Kargl
parent 55792875db
commit a2694f689c
4 changed files with 33 additions and 2 deletions
gcc/testsuite
ChangeLog
gfortran.dg
csqrt_2.f
libgfortran
ChangeLog
intrinsics
c99_functions.c

5
gcc/testsuite/ChangeLog

@ -1,3 +1,8 @@
2005-10-11 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/24313
gfortran.dg/csqrt.f: New test.
2005-10-11 Ian Lance Taylor <ian@airs.com>
PR c++/8057

19
gcc/testsuite/gfortran.dg/csqrt_2.f Normal file

@ -0,0 +1,19 @@
c { dg-do run { xfail *-*-linux-gnu } }
c Fix PR libgfortran/24313
complex x, y
complex z
z = cmplx(0.707106, -0.707106)
x = cmplx(0.0,-1.0)
y = sqrt(x)
if (abs(y - z) / abs(z) > 1.e-4) call abort
x = cmplx(tiny(1.),-1.0)
y = sqrt(x)
if (abs(y - z) / abs(z) > 1.e-4) call abort
x = cmplx(-tiny(1.),-1.0)
y = sqrt(x)
if (abs(y - z) / abs(z) > 1.e-4) call abort
end

7
libgfortran/ChangeLog

@ -1,3 +1,10 @@
2005-10-11 Steven G. Kargl <kargls@comcast.net>
PR libgfortran/24313
* c99_functions.c (csqrtf, csqrt): Fix choice of branch cut. Note
csqrt{f} were imported from glibc, and this bug is still present
there. glibc PR is 1146.
2005-10-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR fortran/16339

4
libgfortran/intrinsics/c99_functions.c

@ -669,7 +669,7 @@ csqrtf (float complex z)
r = sqrtf (0.5 * fabsf (im));
COMPLEX_ASSIGN (v, copysignf (r, im), r);
COMPLEX_ASSIGN (v, r, copysignf (r, im));
}
else
{
@ -722,7 +722,7 @@ csqrt (double complex z)
r = sqrt (0.5 * fabs (im));
COMPLEX_ASSIGN (v, copysign (r, im), r);
COMPLEX_ASSIGN (v, r, copysign (r, im));
}
else
{