1 files changed, 0 insertions, 24 deletions
diff --git a/gnu/lib/libf2c/libF77/cabs.c b/gnu/lib/libf2c/libF77/cabs.c
deleted file mode 100644
index 5d2142e1825..00000000000
--- a/gnu/lib/libf2c/libF77/cabs.c
+++ /dev/null
@@ -1,24 +0,0 @@
-#undef abs
-#include <math.h>
-double
-f__cabs (double real, double imag)
-{
-  double temp;
-
-  if (real < 0)
-    real = -real;
-  if (imag < 0)
-    imag = -imag;
-  if (imag > real)
-    {
-      temp = real;
-      real = imag;
-      imag = temp;
-    }
-  if ((real + imag) == real)
-    return (real);
-
-  temp = imag / real;
-  temp = real * sqrt (1.0 + temp * temp);	/*overflow!! */
-  return (temp);
-}