1 files changed, 0 insertions, 50 deletions
diff --git a/libf2c/libF77/s_copy.c b/libf2c/libF77/s_copy.c
deleted file mode 100644
index a91071eccab..00000000000
--- a/libf2c/libF77/s_copy.c
+++ /dev/null
@@ -1,50 +0,0 @@
-/* Unless compiled with -DNO_OVERWRITE, this variant of s_copy allows the
- * target of an assignment to appear on its right-hand side (contrary
- * to the Fortran 77 Standard, but in accordance with Fortran 90),
- * as in  a(2:5) = a(4:7) .
- */
-
-#include "f2c.h"
-
-/* assign strings:  a = b */
-
-void
-s_copy (register char *a, register char *b, ftnlen la, ftnlen lb)
-{
-  register char *aend, *bend;
-
-  aend = a + la;
-
-  if (la <= lb)
-#ifndef NO_OVERWRITE
-    if (a <= b || a >= b + la)
-#endif
-      while (a < aend)
-	*a++ = *b++;
-#ifndef NO_OVERWRITE
-    else
-      for (b += la; a < aend;)
-	*--aend = *--b;
-#endif
-
-  else
-    {
-      bend = b + lb;
-#ifndef NO_OVERWRITE
-      if (a <= b || a >= bend)
-#endif
-	while (b < bend)
-	  *a++ = *b++;
-#ifndef NO_OVERWRITE
-      else
-	{
-	  a += lb;
-	  while (b < bend)
-	    *--a = *--bend;
-	  a += lb;
-	}
-#endif
-      while (a < aend)
-	*a++ = ' ';
-    }
-}