1 files changed, 0 insertions, 31 deletions
diff --git a/gnu/lib/libf2c/libF77/pow_qq.c b/gnu/lib/libf2c/libF77/pow_qq.c
deleted file mode 100644
index 0cec5ca7d8c..00000000000
--- a/gnu/lib/libf2c/libF77/pow_qq.c
+++ /dev/null
@@ -1,31 +0,0 @@
-#include "f2c.h"
-
-longint
-pow_qq (longint * ap, longint * bp)
-{
-  longint pow, x, n;
-  unsigned long long u;		/* system-dependent */
-
-  x = *ap;
-  n = *bp;
-
-  if (n <= 0)
-    {
-      if (n == 0 || x == 1)
-	return 1;
-      if (x != -1)
-	return x == 0 ? 1 / x : 0;
-      n = -n;
-    }
-  u = n;
-  for (pow = 1;;)
-    {
-      if (u & 01)
-	pow *= x;
-      if (u >>= 1)
-	x *= x;
-      else
-	break;
-    }
-  return (pow);
-}