1 files changed, 0 insertions, 23 deletions
diff --git a/libf2c/libF77/h_indx.c b/libf2c/libF77/h_indx.c
deleted file mode 100644
index 2353b2b143a..00000000000
--- a/libf2c/libF77/h_indx.c
+++ /dev/null
@@ -1,23 +0,0 @@
-#include "f2c.h"
-
-shortint
-h_indx (char *a, char *b, ftnlen la, ftnlen lb)
-{
-  ftnlen i, n;
-  char *s, *t, *bend;
-
-  n = la - lb + 1;
-  bend = b + lb;
-
-  for (i = 0; i < n; ++i)
-    {
-      s = a + i;
-      t = b;
-      while (t < bend)
-	if (*s++ != *t++)
-	  goto no;
-      return ((shortint) i + 1);
-    no:;
-    }
-  return (0);
-}