Commit 8e2b8d13 by Craig Burley Committed by Craig Burley

Update to Netlib version of 1999-05-10

From-SVN: r26864
parent 9733e4ee
Mon May 10 17:33:45 1999 Craig Burley <craig@jcb-sc.com>
Update to Netlib version of 1999-05-10:
* changes.netlib, libF77/Version.c, libF77/abort_.c,
libF77/c_log.c, libF77/ef1asc_.c, libF77/s_rnge.c,
libF77/s_stop.c, libI77/Version.c, libI77/open.c,
readme.netlib: See changes.netlib for info.
Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com) Fri May 7 9:33:55 1999 Donn Terry (donn@interix.com)
* libU77/dtime_.c (G77_dtime_0): Standard-conforming error check. * libU77/dtime_.c (G77_dtime_0): Standard-conforming error check.
......
...@@ -3003,7 +3003,14 @@ Sun May 2 22:38:25 EDT 1999 ...@@ -3003,7 +3003,14 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by complex intrinsics to work with overlapping arguments (caused by
illegal use of equivalence); open.c: get "external" versus "internal" inappropriate use of equivalence); open.c: get "external" versus
right in the error message if a file cannot be opened; err.c: cast a "internal" right in the error message if a file cannot be opened;
pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
that could be overwritten by formats Inn or Lnn with nn > 83. fixed-length buffer that could be overwritten by formats Inn or Lnn
with nn > 83.
Mon May 3 13:14:07 EDT 1999
"Invisible" changes to omit a few compiler warnings in f2c and
libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
and one more tweak (libf2c/c_log.c) for pathological equivalences.
Minor update to "fc" script: new -L flag and comment correction.
static char junk[] = "\n@(#)LIBF77 VERSION 19990502\n"; static char junk[] = "\n@(#)LIBF77 VERSION 19990503\n";
/* /*
*/ */
...@@ -59,6 +59,8 @@ char __G77_LIBF77_VERSION__[] = "0.5.24"; ...@@ -59,6 +59,8 @@ char __G77_LIBF77_VERSION__[] = "0.5.24";
c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c, c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
overlapping arguments caused by equivalence. overlapping arguments caused by equivalence.
3 May 1999: "invisible" tweaks to omit compiler warnings in
abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
*/ */
#include <stdio.h> #include <stdio.h>
......
...@@ -12,7 +12,5 @@ int G77_abort_0 (void) ...@@ -12,7 +12,5 @@ int G77_abort_0 (void)
#endif #endif
{ {
sig_die("Fortran abort routine called", 1); sig_die("Fortran abort routine called", 1);
#ifdef __cplusplus return 0; /* not reached */
return 0;
#endif
} }
...@@ -11,7 +11,7 @@ extern double f__cabs(double, double); ...@@ -11,7 +11,7 @@ extern double f__cabs(double, double);
void c_log(complex *r, complex *z) void c_log(complex *r, complex *z)
#endif #endif
{ {
double zi = z->i, zr = z->r; double zi, zr;
r->i = atan2(zi, zr); r->i = atan2(zi = z->i, zr = z->r);
r->r = log( f__cabs( zr, zi ) ); r->r = log( f__cabs(zr, zi) );
} }
...@@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) ...@@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
#endif #endif
{ {
s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
#ifdef __cplusplus return 0; /* ignored return value */
return 0;
#endif
} }
...@@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1 ...@@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1
while((i = *varn) && i != ' ') while((i = *varn) && i != ' ')
putc(*varn++, stderr); putc(*varn++, stderr);
sig_die(".", 1); sig_die(".", 1);
#ifdef __cplusplus return 0; /* not reached */
return 0;
#endif
} }
...@@ -30,8 +30,13 @@ if(n > 0) ...@@ -30,8 +30,13 @@ if(n > 0)
f_exit(); f_exit();
#endif #endif
exit(0); exit(0);
#ifdef __cplusplus
/* We cannot avoid (useless) compiler diagnostics here: */
/* some compilers complain if there is no return statement, */
/* and others complain that this one cannot be reached. */
return 0; /* NOT REACHED */ return 0; /* NOT REACHED */
} }
#endif #ifdef __cplusplus
} }
#endif
static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990502\n"; static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19990503\n";
/* /*
*/ */
...@@ -300,6 +300,7 @@ wrtfmt.c: ...@@ -300,6 +300,7 @@ wrtfmt.c:
err.c: cast a pointer difference to (int) for %d. err.c: cast a pointer difference to (int) for %d.
rdfmt.c: omit fixed-length buffer that could be overwritten rdfmt.c: omit fixed-length buffer that could be overwritten
by formats Inn or Lnn with nn > 83. */ by formats Inn or Lnn with nn > 83. */
/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */
......
...@@ -187,7 +187,7 @@ integer f_open(olist *a) ...@@ -187,7 +187,7 @@ integer f_open(olist *a)
opnerr(a->oerr,107,"open"); opnerr(a->oerr,107,"open");
} }
else else
sprintf(buf, "fort.%ld", a->ounit); sprintf(buf, "fort.%ld", (long)a->ounit);
b->uscrtch = 0; b->uscrtch = 0;
b->uend=0; b->uend=0;
b->uwrt = 0; b->uwrt = 0;
...@@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n) ...@@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n)
int rtn; int rtn;
int save_init; int save_init;
(void) sprintf(nbuf,"fort.%ld",n); (void) sprintf(nbuf,"fort.%ld",(long)n);
a.oerr=1; a.oerr=1;
a.ounit=n; a.ounit=n;
a.ofnm=nbuf; a.ofnm=nbuf;
......
...@@ -698,10 +698,21 @@ Sun May 2 22:38:25 EDT 1999 ...@@ -698,10 +698,21 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by complex intrinsics to work with overlapping arguments (caused by
illegal use of equivalence); open.c: get "external" versus "internal" inappropriate use of equivalence); open.c: get "external" versus
right in the error message if a file cannot be opened; err.c: cast a "internal" right in the error message if a file cannot be opened;
pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
that could be overwritten by formats Inn or Lnn with nn > 83. fixed-length buffer that could be overwritten by formats Inn or Lnn
with nn > 83.
Mon May 3 13:14:07 EDT 1999
"Invisible" changes to omit a few compiler warnings in f2c and
libf2c; two new casts in libf2c/open.c that matter with 64-bit longs,
and one more tweak (libf2c/c_log.c) for pathological equivalences.
Minor update to "fc" script: new -L flag and comment correction.
Tue May 4 10:06:26 EDT 1999
libf77, libf2c.zip: forgot to copy yesterday's latest updates to
netlib.
Current timestamps of files in "all from f2c/src", sorted by time, Current timestamps of files in "all from f2c/src", sorted by time,
appear below (mm/dd/year hh:mm:ss). To bring your source up to date, appear below (mm/dd/year hh:mm:ss). To bring your source up to date,
...@@ -709,17 +720,22 @@ obtain source files with a timestamp later than the time shown in your ...@@ -709,17 +720,22 @@ obtain source files with a timestamp later than the time shown in your
version.c. Note that the time shown in the current version.c is the version.c. Note that the time shown in the current version.c is the
timestamp of the source module that immediately follows version.c below: timestamp of the source module that immediately follows version.c below:
3/28/1999 13:16:27 xsum0.out 5/03/1999 12:46:15 version.c
3/26/1999 23:18:20 version.c 5/03/1999 12:39:35 formatdata.c
5/03/1999 12:31:14 format.c
5/03/1999 12:27:17 p1output.c
5/03/1999 12:27:17 data.c
5/03/1999 10:01:12 xsum0.out
5/03/1999 9:59:36 io.c
5/03/1999 9:59:36 misc.c
5/03/1999 9:59:36 init.c
3/26/1999 23:18:11 lex.c 3/26/1999 23:18:11 lex.c
3/11/1999 16:44:17 expr.c 3/11/1999 16:44:17 expr.c
3/11/1999 16:42:42 exec.c 3/11/1999 16:42:42 exec.c
2/10/1999 17:43:01 defs.h 2/10/1999 17:43:01 defs.h
9/13/1998 22:18:21 format.c
9/08/1998 10:16:51 f2c.1 9/08/1998 10:16:51 f2c.1
9/08/1998 10:16:48 f2c.1t 9/08/1998 10:16:48 f2c.1t
9/08/1998 10:14:53 intr.c 9/08/1998 10:14:53 intr.c
8/31/1998 10:13:22 formatdata.c
5/16/1998 16:55:49 output.c 5/16/1998 16:55:49 output.c
4/03/1998 17:15:05 gram.c 4/03/1998 17:15:05 gram.c
4/03/1998 17:14:59 gram.dcl 4/03/1998 17:14:59 gram.dcl
...@@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below: ...@@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below:
7/21/1997 12:58:44 proc.c 7/21/1997 12:58:44 proc.c
2/11/1997 23:39:14 vax.c 2/11/1997 23:39:14 vax.c
12/04/1996 13:07:53 gram.exec 12/04/1996 13:07:53 gram.exec
10/01/1996 14:36:18 init.c
10/01/1996 14:36:17 data.c
9/12/1996 12:12:46 equiv.c 9/12/1996 12:12:46 equiv.c
8/26/1996 9:41:13 sysdep.c 8/26/1996 9:41:13 sysdep.c
7/09/1996 10:40:45 names.c 7/09/1996 10:40:45 names.c
...@@ -741,12 +755,9 @@ timestamp of the source module that immediately follows version.c below: ...@@ -741,12 +755,9 @@ timestamp of the source module that immediately follows version.c below:
7/04/1996 9:55:43 put.c 7/04/1996 9:55:43 put.c
7/04/1996 9:55:41 pread.c 7/04/1996 9:55:41 pread.c
7/04/1996 9:55:40 parse_args.c 7/04/1996 9:55:40 parse_args.c
7/04/1996 9:55:40 p1output.c
7/04/1996 9:55:37 misc.c
7/04/1996 9:55:36 memset.c
7/04/1996 9:55:36 mem.c 7/04/1996 9:55:36 mem.c
7/04/1996 9:55:36 memset.c
7/04/1996 9:55:35 main.c 7/04/1996 9:55:35 main.c
7/04/1996 9:55:33 io.c
7/04/1996 9:55:29 error.c 7/04/1996 9:55:29 error.c
7/04/1996 9:55:27 cds.c 7/04/1996 9:55:27 cds.c
7/03/1996 15:47:49 xsum.c 7/03/1996 15:47:49 xsum.c
......
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