From 37159e91c1dbf5d43f699784bf6a169201552658 Mon Sep 17 00:00:00 2001 From: Craig Burley Date: Tue, 2 Mar 1999 21:59:52 +0000 Subject: [PATCH] Fix IDATE (VXT) intrinsic From-SVN: r25551 --- gcc/f/ChangeLog | 4 ++++ gcc/f/news.texi | 11 +++++++++++ libf2c/ChangeLog | 6 ++++++ libf2c/libU77/vxtidate_.c | 2 +- 4 files changed, 22 insertions(+), 1 deletion(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index e5928e5d006..d4d03e443e3 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +Wed Mar 3 00:57:56 1999 Craig Burley + + * news.texi: IDATE (VXT) fixed to return year as 0..99. + Wed Mar 3 00:43:49 1999 Craig Burley * g77.texi: Add remaining changes pending from Dave Love. diff --git a/gcc/f/news.texi b/gcc/f/news.texi index a66c40aee29..6cfe954e140 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -64,6 +64,17 @@ somewhat more difficult. @heading In @code{egcs} 1.2: @itemize @bullet +@item +Fix the @code{IDate} Intrinsic (VXT) +so the returned year is in the documented, non-Y2K-compliant range +of 0--99, +instead of being returned as 100 in the year 2000. + +@ifnothtml +@xref{IDate Intrinsic (VXT)}, +for more information. +@end ifnothtml + @item Fix @code{g77} so it no longer crashes when compiling I/O statements using keywords that define @code{INTEGER} values, diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 1e396a05af6..55300b04d99 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +1999-03-03 Craig Burley + + * libU77/vxtidate_.c (G77_vxtidate_0): Truncate + year to last two digits (i.e. modulo 100), as per + documentation and (documented) Y2K non-compliance. + 1999-02-20 Craig Burley From Krister Walfridsson : diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c index c517f29419e..03133ffa2ff 100644 --- a/libf2c/libU77/vxtidate_.c +++ b/libf2c/libU77/vxtidate_.c @@ -48,7 +48,7 @@ int G77_vxtidate_0 (integer *m, integer *d, integer *y) time_t tim; tim = time(NULL); lt = localtime(&tim); - *y = lt->tm_year; + *y = lt->tm_year % 100; *m = lt->tm_mon+1; *d = lt->tm_mday; return 0; -- 2.30.2