diff options
Diffstat (limited to 'contrib/libf2c/libU77/date_.c')
-rw-r--r-- | contrib/libf2c/libU77/date_.c | 15 |
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 + + |