diff options
Diffstat (limited to 'libf2c/libU77/vxtidate_.c')
| -rw-r--r-- | libf2c/libU77/vxtidate_.c | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c index d5f289c7064..e5963af42e6 100644 --- a/libf2c/libU77/vxtidate_.c +++ b/libf2c/libU77/vxtidate_.c @@ -54,3 +54,18 @@ int G77_vxtidate_y2kbug_0 (integer *m, integer *d, integer *y) *d = lt->tm_mday; return 0; } + +#ifdef PIC +extern const char *G77_Non_Y2K_Compliance_Message; +# ifdef KR_headers +int G77_vxtidate_y2kbuggy_0 (m, d, y) + integer *y, *m, *d; +# else +int G77_vxtidate_y2kbuggy_0 (integer *m, integer *d, integer *y) +# endif +{ + extern int G77_abort_0(); + fprintf (stderr, "%s\n", G77_Non_Y2K_Compliance_Message); + G77_abort_0(); +} +#endif |