IDATE Intrinsic (VXT) Year 2000 (Y2K) Fix

From-SVN: r25595

diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog
index 1c1206c22645739f0b6c485b7c861a2e364db4a5..a0d86a2f39ef4de597e1e9b476ca95750bdabdf9 100644 (file)
--- 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 35d87dbb1cd1968e1962c16fcd2a82881e894efe..cf96d864c1cfa9e89c691aed88d22ef7617dc120 100644 (file)
--- 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 dd29c51bcf40bb77aacbe8df532923ee3a0cb488..715b154e53fa1c940d4b88dbfa0015fd2f8b1a57 100644 (file)
--- 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 a9689cfc04fb65de371df54e203bd359af1fd2ec..6fb0b42b55b687340e55960c85443ce28165ed1c 100644 (file)
--- 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 c517f29419e1775b72de4f0fd7fce0d513d6155a..03133ffa2ffb9bb42e558cd8e044e8f910af22a0 100644 (file)
--- 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;