summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorburley <burley@138bc75d-0d04-0410-961f-82ee72b054a4>1999-05-10 14:40:59 +0000
committerburley <burley@138bc75d-0d04-0410-961f-82ee72b054a4>1999-05-10 14:40:59 +0000
commit6db9aef0328beee539ee51e75e852e271a78c69c (patch)
tree2f60c099d0dc5fc900d95fee36cf23700d91cb55
parent460fb0a0486c7b8fc34902e4834ff65da18611b8 (diff)
downloadgcc-6db9aef0328beee539ee51e75e852e271a78c69c.tar.gz
Update to Netlib version of 1999-05-10
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@26864 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--libf2c/ChangeLog8
-rw-r--r--libf2c/changes.netlib15
-rw-r--r--libf2c/libF77/Version.c4
-rw-r--r--libf2c/libF77/abort_.c4
-rw-r--r--libf2c/libF77/c_log.c6
-rw-r--r--libf2c/libF77/ef1asc_.c4
-rw-r--r--libf2c/libF77/s_rnge.c4
-rw-r--r--libf2c/libF77/s_stop.c9
-rw-r--r--libf2c/libI77/Version.c3
-rw-r--r--libf2c/libI77/open.c4
-rw-r--r--libf2c/readme.netlib39
11 files changed, 64 insertions, 36 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 738f1f18182..6d16a161263 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,11 @@
+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)
* libU77/dtime_.c (G77_dtime_0): Standard-conforming error check.
diff --git a/libf2c/changes.netlib b/libf2c/changes.netlib
index cbb6ee36082..a5252202bdb 100644
--- a/libf2c/changes.netlib
+++ b/libf2c/changes.netlib
@@ -3003,7 +3003,14 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by
-illegal use of equivalence); open.c: get "external" versus "internal"
-right in the error message if a file cannot be opened; err.c: cast a
-pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
-that could be overwritten by formats Inn or Lnn with nn > 83.
+inappropriate use of equivalence); open.c: get "external" versus
+"internal" right in the error message if a file cannot be opened;
+err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
+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.
diff --git a/libf2c/libF77/Version.c b/libf2c/libF77/Version.c
index a31379f510b..98a91098976 100644
--- a/libf2c/libF77/Version.c
+++ b/libf2c/libF77/Version.c
@@ -1,4 +1,4 @@
-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";
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
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>
diff --git a/libf2c/libF77/abort_.c b/libf2c/libF77/abort_.c
index 8efdc42f970..f0c2f8df359 100644
--- a/libf2c/libF77/abort_.c
+++ b/libf2c/libF77/abort_.c
@@ -12,7 +12,5 @@ int G77_abort_0 (void)
#endif
{
sig_die("Fortran abort routine called", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* not reached */
}
diff --git a/libf2c/libF77/c_log.c b/libf2c/libF77/c_log.c
index 6e3df66653b..24d1a3c957b 100644
--- a/libf2c/libF77/c_log.c
+++ b/libf2c/libF77/c_log.c
@@ -11,7 +11,7 @@ extern double f__cabs(double, double);
void c_log(complex *r, complex *z)
#endif
{
- double zi = z->i, zr = z->r;
- r->i = atan2(zi, zr);
- r->r = log( f__cabs( zr, zi ) );
+ double zi, zr;
+ r->i = atan2(zi = z->i, zr = z->r);
+ r->r = log( f__cabs(zr, zi) );
}
diff --git a/libf2c/libF77/ef1asc_.c b/libf2c/libF77/ef1asc_.c
index a922a1d9ba9..8588584fbab 100644
--- a/libf2c/libF77/ef1asc_.c
+++ b/libf2c/libF77/ef1asc_.c
@@ -15,7 +15,5 @@ int G77_ef1asc_0 (ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
#endif
{
s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* ignored return value */
}
diff --git a/libf2c/libF77/s_rnge.c b/libf2c/libF77/s_rnge.c
index 189b5247ced..fbe3219d580 100644
--- a/libf2c/libF77/s_rnge.c
+++ b/libf2c/libF77/s_rnge.c
@@ -20,7 +20,5 @@ fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1
while((i = *varn) && i != ' ')
putc(*varn++, stderr);
sig_die(".", 1);
-#ifdef __cplusplus
-return 0;
-#endif
+return 0; /* not reached */
}
diff --git a/libf2c/libF77/s_stop.c b/libf2c/libF77/s_stop.c
index 2e3f1035b30..975edb7d4ad 100644
--- a/libf2c/libF77/s_stop.c
+++ b/libf2c/libF77/s_stop.c
@@ -30,8 +30,13 @@ if(n > 0)
f_exit();
#endif
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 */
}
-#endif
+#ifdef __cplusplus
}
+#endif
diff --git a/libf2c/libI77/Version.c b/libf2c/libI77/Version.c
index a475702b9be..c5cf773bf23 100644
--- a/libf2c/libI77/Version.c
+++ b/libf2c/libI77/Version.c
@@ -1,4 +1,4 @@
-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:
err.c: cast a pointer difference to (int) for %d.
rdfmt.c: omit fixed-length buffer that could be overwritten
by formats Inn or Lnn with nn > 83. */
+/* 3 May 1999: open.c: insert two casts for machines with 64-bit longs. */
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c
index dd47bddb9e1..3e4c8bc32b5 100644
--- a/libf2c/libI77/open.c
+++ b/libf2c/libI77/open.c
@@ -187,7 +187,7 @@ integer f_open(olist *a)
opnerr(a->oerr,107,"open");
}
else
- sprintf(buf, "fort.%ld", a->ounit);
+ sprintf(buf, "fort.%ld", (long)a->ounit);
b->uscrtch = 0;
b->uend=0;
b->uwrt = 0;
@@ -281,7 +281,7 @@ fk_open(int seq, int fmt, ftnint n)
int rtn;
int save_init;
- (void) sprintf(nbuf,"fort.%ld",n);
+ (void) sprintf(nbuf,"fort.%ld",(long)n);
a.oerr=1;
a.ounit=n;
a.ofnm=nbuf;
diff --git a/libf2c/readme.netlib b/libf2c/readme.netlib
index e312984dc54..406a753cf30 100644
--- a/libf2c/readme.netlib
+++ b/libf2c/readme.netlib
@@ -698,10 +698,21 @@ Sun May 2 22:38:25 EDT 1999
libf77, libi77, libf2c.zip: make getenv_() more portable (call
getenv() rather than knowing about char **environ); adjust some
complex intrinsics to work with overlapping arguments (caused by
-illegal use of equivalence); open.c: get "external" versus "internal"
-right in the error message if a file cannot be opened; err.c: cast a
-pointer difference to (int) for %d; rdfmt.c: omit fixed-length buffer
-that could be overwritten by formats Inn or Lnn with nn > 83.
+inappropriate use of equivalence); open.c: get "external" versus
+"internal" right in the error message if a file cannot be opened;
+err.c: cast a pointer difference to (int) for %d; rdfmt.c: omit
+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,
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
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:
- 3/28/1999 13:16:27 xsum0.out
- 3/26/1999 23:18:20 version.c
+ 5/03/1999 12:46:15 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/11/1999 16:44:17 expr.c
3/11/1999 16:42:42 exec.c
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:48 f2c.1t
9/08/1998 10:14:53 intr.c
- 8/31/1998 10:13:22 formatdata.c
5/16/1998 16:55:49 output.c
4/03/1998 17:15:05 gram.c
4/03/1998 17:14:59 gram.dcl
@@ -732,8 +748,6 @@ timestamp of the source module that immediately follows version.c below:
7/21/1997 12:58:44 proc.c
2/11/1997 23:39:14 vax.c
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
8/26/1996 9:41:13 sysdep.c
7/09/1996 10:40:45 names.c
@@ -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:41 pread.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 memset.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:27 cds.c
7/03/1996 15:47:49 xsum.c