IDATE Intrinsic (VXT) Year 2000 (Y2K) Fix

[craig at jcb-sc dot com]

egcs/libf2c/ChangeLog:

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.
  
egcs/gcc/f/ChangeLog:

1999-03-05  Craig Burley  <craig@jcb-sc.com>

	* news.texi: IDATE (VXT) fixed to return year as 0..99.
  
diff -rcp2N -x CVS -x .cvsignore cvs/egcs-1.1/gcc/f/news.texi g77-d/gcc/f/news.texi
*** cvs/egcs-1.1/gcc/f/news.texi	Fri Feb 26 16:02:53 1999
--- g77-d/gcc/f/news.texi	Fri Mar  5 13:13:15 1999
***************
*** 1,3 ****
! @c Copyright (C) 1995-1997 Free Software Foundation, Inc.
  @c This is part of the G77 manual.
  @c For copying conditions, see the file g77.texi.
--- 1,3 ----
! @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.
***************
*** 6,10 ****
  @c in the G77 distribution, as well as in the G77 manual.
  
! @c 1999-02-26
  
  @ifclear NEWSONLY
--- 6,10 ----
  @c in the G77 distribution, as well as in the G77 manual.
  
! @c 1999-03-05
  
  @ifclear NEWSONLY
*************** somewhat more difficult.
*** 61,64 ****
--- 61,70 ----
  @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})
diff -rcp2N -x CVS -x .cvsignore cvs/egcs-1.1/libf2c/libU77/Version.c g77-d/libf2c/libU77/Version.c
*** cvs/egcs-1.1/libf2c/libU77/Version.c	Fri Feb 26 16:02:53 1999
--- g77-d/libf2c/libU77/Version.c	Fri Mar  5 13:13:50 1999
***************
*** 1,5 ****
  static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
  
! char __G77_LIBU77_VERSION__[] = "0.5.24-19990220";
  
  #include <stdio.h>
--- 1,5 ----
  static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
  
! char __G77_LIBU77_VERSION__[] = "0.5.24-19990305";
  
  #include <stdio.h>
diff -rcp2N -x CVS -x .cvsignore cvs/egcs-1.1/libf2c/libU77/vxtidate_.c g77-d/libf2c/libU77/vxtidate_.c
*** cvs/egcs-1.1/libf2c/libU77/vxtidate_.c	Sat Jan 31 20:37:08 1998
--- g77-d/libf2c/libU77/vxtidate_.c	Fri Mar  5 13:10:03 1999
*************** int G77_vxtidate_0 (integer *m, integer 
*** 49,53 ****
    tim = time(NULL);
    lt = localtime(&tim);
!   *y = lt->tm_year;
    *m = lt->tm_mon+1;
    *d = lt->tm_mday;
--- 49,53 ----
    tim = time(NULL);
    lt = localtime(&tim);
!   *y = lt->tm_year % 100;
    *m = lt->tm_mon+1;
    *d = lt->tm_mday;