date_.c (G77_date_y2kbug_0): G77_time_0 returns longint...

        * libU77/date_.c (G77_date_y2kbug_0): G77_time_0 returns
        longint, not integer, and G77_ctime_0 takes longint, not
        integer, argument.
        * libU77/Version.c: Bump version.

From-SVN: r28013

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index b51430ae917c0b398b4dd71b8fea1ea73ba05d2d..e09d8bfbba063e8482cfe145fa8e26c90ba775f1 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,11 @@
+Wed Jul  7 15:58:16 1999  Craig Burley  <craig@jcb-sc.com>
+
+       * libU77/date_.c (G77_date_y2kbug_0): G77_time_0 returns
+       longint, not integer, and G77_ctime_0 takes longint, not
+       integer, argument.
+
+       * libU77/Version.c: Bump version.
+
 Mon Jun 28 21:27:08 1999  Craig Burley  <craig@jcb-sc.com>
 
        Update to Netlib version of 1999-06-28:

diff --git a/libf2c/libU77/Version.c b/libf2c/libU77/Version.c
index d4b509b4fe367c2c939d66f34a6133872b6e7189..2003f3c05e91f3e2428fdd2a6cb477f2d4605f38 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.25 19990507 (prerelease)";
+char __G77_LIBU77_VERSION__[] = "0.5.25 19990707 (prerelease)";
 
 #include <stdio.h>
 

diff --git a/libf2c/libU77/date_.c b/libf2c/libU77/date_.c
index 11537657f329d61960352d9b60d38ab2b8ace296..4f8254d37408ede88b06f6a12d757d88a07e0c06 100644 (file)
--- a/libf2c/libU77/date_.c
+++ b/libf2c/libU77/date_.c
@@ -13,7 +13,8 @@ static integer c__5 = 5;
 {
     /* System generated locals */
     address a__1[5];
-    integer i__1, i__2[5];
+    longint i__1;
+    integer i__2[5];
     char ch__1[24];
 
     /* Builtin functions */
@@ -21,7 +22,7 @@ static integer c__5 = 5;
 
     /* Local variables */
     static char cbuf[24];
-    extern integer G77_time_0 ();
+    extern longint G77_time_0 ();
     extern /* Character */ VOID G77_ctime_0 ();
 
     i__1 = G77_time_0 ();