diff options
author | obrien <obrien@FreeBSD.org> | 2002-05-09 22:47:59 +0000 |
---|---|---|
committer | obrien <obrien@FreeBSD.org> | 2002-05-09 22:47:59 +0000 |
commit | c4cd6f62364376317c26d104dbae2a1d7688c6f1 (patch) | |
tree | 67cbb2dcc743690cb31fd56b75a992ce4a6950d9 /contrib/libf2c/libU77/date_.c | |
parent | c95b4b5523419271f1bfef55bc47dfbcdced47c7 (diff) | |
parent | eb81e01d5162436a00b210305c91bbba234a0238 (diff) | |
download | FreeBSD-src-c4cd6f62364376317c26d104dbae2a1d7688c6f1.zip FreeBSD-src-c4cd6f62364376317c26d104dbae2a1d7688c6f1.tar.gz |
This commit was generated by cvs2svn to compensate for changes in r96295,
which included commits to RCS files with non-trunk default branches.
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 + + |