Tweaks to eliminate unnecessary differences vs.

Tweaks to eliminate unnecessary
differences vs. netlib libf2c.

From-SVN: r19878

libf2c/libF77/Version.c

@@ -3,7 +3,7 @@ static char junk[] = "\n@(#)LIBF77 VERSION 19970919\n";
 /*
 */
 
-char __G77_LIBF77_VERSION__[] = "0.5.23-19980501";
+char __G77_LIBF77_VERSION__[] = "0.5.23-19980503";
 
 /*
 2.00	11 June 1980.  File version.c added to library.

libf2c/libF77/signal_.c

@@ -14,4 +14,3 @@ G77_signal_0 (integer *sigp, sig_pf proc)
 
 	return (void *) signal(sig, proc);
 	}
-

libf2c/libI77/Version.c

@@ -3,7 +3,7 @@ static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 19980405\n";
 /*
 */
 
-char __G77_LIBI77_VERSION__[] = "0.5.23-19980502";
+char __G77_LIBI77_VERSION__[] = "0.5.23-19980503";
 
 /*
 2.01	$ format added

libf2c/libI77/dfe.c

@@ -81,7 +81,7 @@ c_dfe(cilist *a)
 	f__fmtbuf=a->cifmt;
 	if(a->cirec <= 0)
 		err(a->cierr,130,"dfe");
-	(void) fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
+	fseek(f__cf,(long)f__curunit->url * (a->cirec-1),SEEK_SET);
 	f__curunit->uend = 0;
 	return(0);
 }

libf2c/libI77/due.c

@@ -22,7 +22,7 @@ c_due(cilist *a)
 	if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue");
 	if(a->cirec <= 0)
 		err(a->cierr,130,"due");
-	(void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
+	fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
 	f__curunit->uend = 0;
 	return(0);
 }
@@ -57,7 +57,7 @@ integer e_rdue(Void)
 	f__init = 1;
 	if(f__curunit->url==1 || f__recpos==f__curunit->url)
 		return(0);
-	(void) fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
+	fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
 	if(ftell(f__cf)%f__curunit->url)
 		err(f__elist->cierr,200,"syserr");
 	return(0);

libf2c/libI77/wsfe.c

@@ -4,6 +4,7 @@
 #include "fmt.h"
 extern int f__hiwater;
 
+ int
 x_wSL(Void)
 {
 	int n = f__putbuf('\n');

libf2c/libU77/dbes.c

@@ -16,10 +16,10 @@ License along with GNU Fortran; see the file COPYING.LIB.  If
 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 
+#if 0 	/* Don't include these unless necessary -- dnp. */
 #include "f2c.h"
 #include <math.h>
 
-#if 0 	/* Don't include these unless necessary -- dnp. */
 double G77_dbesj0_0 (const double *x) {
     return j0 (*x);
 }