1 files changed, 0 insertions, 56 deletions
diff --git a/gnu/lib/libf2c/libU77/date_.c b/gnu/lib/libf2c/libU77/date_.c
deleted file mode 100644
index 306cc5f2da4..00000000000
--- a/gnu/lib/libf2c/libU77/date_.c
+++ /dev/null
@@ -1,56 +0,0 @@
-/* date_.f -- translated by f2c (version 19961001).
-   You must link the resulting object file with the libraries:
-	-lf2c -lm   (in that order)
-*/
-
-#include "f2c.h"
-
-/* Table of constant values */
-
-static integer c__5 = 5;
-
-/* Subroutine */ int
-G77_date_y2kbug_0 (char *buf, ftnlen buf_len)
-{
-  /* System generated locals */
-  address a__1[5];
-  longint i__1;
-  integer i__2[5];
-  char ch__1[24];
-
-  /* Builtin functions */
-  /* Subroutine */ int s_copy (), s_cat ();
-
-  /* Local variables */
-  static char cbuf[24];
-  extern longint G77_time_0 ();
-  extern /* Character */ void G77_ctime_0 ();
-
-  i__1 = G77_time_0 ();
-  G77_ctime_0 (ch__1, 24L, &i__1);
-  s_copy (cbuf, ch__1, 24L, 24L);
-/* Writing concatenation */
-  i__2[0] = 2, a__1[0] = cbuf + 8;
-  i__2[1] = 1, a__1[1] = "-";
-  i__2[2] = 3, a__1[2] = cbuf + 4;
-  i__2[3] = 1, a__1[3] = "-";
-  i__2[4] = 2, a__1[4] = cbuf + 22;
-  s_cat (buf, a__1, i__2, &c__5, buf_len);
-  return 0;
-}				/* date_ */
-
-#ifdef PIC
-#  include <stdio.h>
-
-const char *G77_Non_Y2K_Compliance_Message =
-  "Call to non Y2K compliant subroutine detected.";
-
-int
-G77_date_y2kbuggy_0 (char *buf __attribute__ ((__unused__)),
-		     ftnlen buf_len __attribute__ ((__unused__)))
-{
-  extern int G77_abort_0 ();
-  fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
-  G77_abort_0 ();
-}
-#endif