diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-03-02 21:59:52 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-03-02 16:59:52 -0500 |
| commit | 37159e91c1dbf5d43f699784bf6a169201552658 (patch) | |
| tree | d250fe9be62d2aa9a297788327bb18f2be2cf368 | |
| parent | ba0b1e43af4f9aba2a2b55a869ca35e7ccf34ba0 (diff) | |
| download | gcc-37159e91c1dbf5d43f699784bf6a169201552658.zip gcc-37159e91c1dbf5d43f699784bf6a169201552658.tar.gz gcc-37159e91c1dbf5d43f699784bf6a169201552658.tar.bz2 | |
Fix IDATE (VXT) intrinsic
From-SVN: r25551
| -rw-r--r-- | gcc/f/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/f/news.texi | 11 | ||||
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libU77/vxtidate_.c | 2 |
4 files changed, 22 insertions, 1 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index e5928e5..d4d03e4 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,7 @@ +Wed Mar 3 00:57:56 1999 Craig Burley <craig@jcb-sc.com> + + * news.texi: IDATE (VXT) fixed to return year as 0..99. + Wed Mar 3 00:43:49 1999 Craig Burley <craig@jcb-sc.com> * g77.texi: Add remaining changes pending from Dave Love. diff --git a/gcc/f/news.texi b/gcc/f/news.texi index a66c40a..6cfe954 100644 --- a/gcc/f/news.texi +++ b/gcc/f/news.texi @@ -65,6 +65,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, such as @samp{IOSTAT=@var{j}}, diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 1e396a0..55300b0 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +1999-03-03 Craig Burley <craig@jcb-sc.com> + + * 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 <craig@jcb-sc.com> From Krister Walfridsson <cato@df.lth.se>: diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c index c517f29..03133ff 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; |