OSDN Git Service

2005-06-12 Steven G. Kargl <kargls@comcast.net>
[pf3gnuchains/gcc-fork.git] / libgfortran / generated / exp_c4.c
index 149d7d0..c4bc41b 100644 (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);
     }