OSDN Git Service

PR libgfortran/24313
authorkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 11 Oct 2005 23:35:27 +0000 (23:35 +0000)
committerkargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 11 Oct 2005 23:35:27 +0000 (23:35 +0000)
* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@105274 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/csqrt_2.f [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/intrinsics/c99_functions.c

index 39ea01a..d21780a 100644 (file)
@@ -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
 2005-10-11  Ian Lance Taylor  <ian@airs.com>
 
        PR c++/8057
diff --git a/gcc/testsuite/gfortran.dg/csqrt_2.f b/gcc/testsuite/gfortran.dg/csqrt_2.f
new file mode 100644 (file)
index 0000000..66e0842
--- /dev/null
@@ -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
+
index d5df1d3..cca3bbe 100644 (file)
@@ -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
 2005-10-07  Janne Blomqvist <jblomqvi@cc.hut.fi>
 
        PR fortran/16339
index 2417e69..906a85a 100644 (file)
@@ -669,7 +669,7 @@ csqrtf (float complex z)
 
       r = sqrtf (0.5 * fabsf (im));
 
 
       r = sqrtf (0.5 * fabsf (im));
 
-      COMPLEX_ASSIGN (v, copysignf (r, im), r);
+      COMPLEX_ASSIGN (v, r, copysignf (r, im));
     }
   else
     {
     }
   else
     {
@@ -722,7 +722,7 @@ csqrt (double complex z)
 
       r = sqrt (0.5 * fabs (im));
 
 
       r = sqrt (0.5 * fabs (im));
 
-      COMPLEX_ASSIGN (v, copysign (r, im), r);
+      COMPLEX_ASSIGN (v, r, copysign (r, im));
     }
   else
     {
     }
   else
     {