Commit a24f233f by Craig Burley Committed by Craig Burley

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
parent ea3a41d3
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:
......
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>
......
......@@ -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 ();
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment