1 files changed, 15 insertions, 0 deletions
diff --git a/contrib/libf2c/libU77/date_.c b/contrib/libf2c/libU77/date_.c
index 4f8254d..c3cd55d 100644
--- a/contrib/libf2c/libU77/date_.c
+++ b/contrib/libf2c/libU77/date_.c
@@ -38,3 +38,18 @@ static integer c__5 = 5;
     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, ftnlen buf_len)
+{
+  extern int G77_abort_0();
+  fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message);
+  G77_abort_0();
+}
+#endif
+
+