1 files changed, 0 insertions, 22 deletions
diff --git a/gnu/lib/libf2c/libF77/s_rnge.c b/gnu/lib/libf2c/libF77/s_rnge.c
deleted file mode 100644
index 6c054c707f5..00000000000
--- a/gnu/lib/libf2c/libF77/s_rnge.c
+++ /dev/null
@@ -1,22 +0,0 @@
-#include <stdio.h>
-#include "f2c.h"
-
-/* called when a subscript is out of range */
-
-extern void sig_die (char *, int);
-integer
-s_rnge (char *varn, ftnint offset, char *procn, ftnint line)
-{
-  register int i;
-
-  fprintf (stderr, "Subscript out of range on file line %ld, procedure ",
-	   (long) line);
-  while ((i = *procn) && i != '_' && i != ' ')
-    putc (*procn++, stderr);
-  fprintf (stderr, ".\nAttempt to access the %ld-th element of variable ",
-	   (long) offset + 1);
-  while ((i = *varn) && i != ' ')
-    putc (*varn++, stderr);
-  sig_die (".", 1);
-  return 0;			/* not reached */
-}