From: Craig Burley <craig@jcb-sc.com>
Date: Fri, 5 Mar 1999 10:17:11 +0000 (+0000)
Subject: IDATE Intrinsic (VXT) Year 2000 (Y2K) Fix
X-Git-Tag: prereleases/egcs-1.1.2-prerelease-3~4
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=589da19d6c135e3e5bc68953dab21da0292e2c91;p=thirdparty%2Fgcc.git

IDATE Intrinsic (VXT) Year 2000 (Y2K) Fix

From-SVN: r25595
---

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1c1206c22645..a0d86a2f39ef 100644
--- a/gcc/f/ChangeLog
+++ b/gcc/f/ChangeLog
@@ -1,3 +1,7 @@
+1999-03-05  Craig Burley  <craig@jcb-sc.com>
+
+	* news.texi: IDATE (VXT) fixed to return year as 0..99.
+  
 1999-03-03  Craig Burley  <craig@jcb-sc.com>
 
 	* bugs.texi: Update with latest bug-fixes from 1.2.
diff --git a/gcc/f/news.texi b/gcc/f/news.texi
index 35d87dbb1cd1..cf96d864c1cf 100644
--- a/gcc/f/news.texi
+++ b/gcc/f/news.texi
@@ -1,11 +1,11 @@
-@c Copyright (C) 1995-1997 Free Software Foundation, Inc.
+@c Copyright (C) 1995-1999 Free Software Foundation, Inc.
 @c This is part of the G77 manual.
 @c For copying conditions, see the file g77.texi.
 
 @c The text of this file appears in the file BUGS
 @c in the G77 distribution, as well as in the G77 manual.
 
-@c 1999-02-26
+@c 1999-03-05
 
 @ifclear NEWSONLY
 @node News
@@ -60,6 +60,12 @@ somewhat more difficult.
 
 @heading In 0.5.24 and @code{egcs} 1.1.2 (versus 0.5.23 and 1.1.1):
 @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.
+
 @item
 Fix the @samp{Date_and_Time} intrinsic (in @code{libg2c})
 to return the milliseconds value properly
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index dd29c51bcf40..715b154e53fa 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,11 @@
+1999-03-05  Craig Burley  <craig@jcb-sc.com>
+
+	* libU77/Version.c: Bump version.
+
+	* libU77/vxtidate_.c (G77_vxtidate_0): Truncate
+	year to last two digits (i.e. modulo 100), as per
+	documentation and Y2K (non-)compliance.
+
 1999-02-26  Craig Burley  <craig@jcb-sc.com>
 
 	* libU77/Version.c: Bump version.
diff --git a/libf2c/libU77/Version.c b/libf2c/libU77/Version.c
index a9689cfc04fb..6fb0b42b55b6 100644
--- a/libf2c/libU77/Version.c
+++ b/libf2c/libU77/Version.c
@@ -1,6 +1,6 @@
 static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
 
-char __G77_LIBU77_VERSION__[] = "0.5.24-19990220";
+char __G77_LIBU77_VERSION__[] = "0.5.24-19990305";
 
 #include <stdio.h>
 
diff --git a/libf2c/libU77/vxtidate_.c b/libf2c/libU77/vxtidate_.c
index c517f29419e1..03133ffa2ffb 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;