Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / i_indx.c

diff --git a/libf2c/libF77/i_indx.c b/libf2c/libF77/i_indx.c
deleted file mode 100644 (file)
index 96e7bc5..0000000
--- a/libf2c/libF77/i_indx.c
+++ /dev/null
@@ -1,26 +0,0 @@
-#include "f2c.h"
-
-#ifdef KR_headers
-integer i_indx(a, b, la, lb) char *a, *b; ftnlen la, lb;
-#else
-integer i_indx(char *a, char *b, ftnlen la, ftnlen lb)
-#endif
-{
-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(i+1);
-       no: ;
-       }
-return(0);
-}