* libF77/main.c (main): Avoid implicit int.

	* libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
	* libI77/due.c (c_due): Likewise.
	* libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
	Likewise.
	* libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
	Likewise.
	* libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
	* libI77/lread.c (t_getc, c_le, l_read): Likewise.
	* libI77/lwrite.c (l_write): Likewise.
	* libI77/open.c (fk_open): Likewise.
	* libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
	* libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
	* libI77/rsne.c (t_getc, x_rsne): Likewise.
	* libI77/sfe.c (c_sfe): Likewise.
	* libI77/sue.c (c_sue): Likewise.
	* libI77/uio.c (do_us): Likewise.
	* libI77/wref.c (wrt_E, wrt_F): Likewise.
	* libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@54169 138bc75d-0d04-0410-961f-82ee72b054a4

18 files changed, 62 insertions, 5 deletions

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 2d4db47350d..3d9b554ea1f 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,25 @@
+Sun Jun  2 08:59:50 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* libF77/main.c (main): Avoid implicit int.
+	* libI77/dfe.c (y_rsk, y_getc, c_dfe): Likewise.
+	* libI77/due.c (c_due): Likewise.
+	* libI77/err.c (f__canseek, f__nowreading, f__nowwriting):
+	Likewise.
+	* libI77/fmt.c (op_gen, ne_d, e_d, pars_f, type_f, en_fio):
+	Likewise.
+	* libI77/iio.c (z_getc, z_rnew, c_si, z_wnew): Likewise.
+	* libI77/lread.c (t_getc, c_le, l_read): Likewise.
+	* libI77/lwrite.c (l_write): Likewise.
+	* libI77/open.c (fk_open): Likewise.
+	* libI77/rdfmt.c (rd_ed, rd_ned): Likewise.
+	* libI77/rsfe.c (xrd_SL, x_getc, x_endp, x_rev): Likewise.
+	* libI77/rsne.c (t_getc, x_rsne): Likewise.
+	* libI77/sfe.c (c_sfe): Likewise.
+	* libI77/sue.c (c_sue): Likewise.
+	* libI77/uio.c (do_us): Likewise.
+	* libI77/wref.c (wrt_E, wrt_F): Likewise.
+	* libI77/wrtfmt.c (wrt_L, w_ed, w_ned): Likewise.
+
 Sun Jun  2 08:58:05 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* libI77/rdfmt.c (rd_I): Delete unused variable(s).
diff --git a/libf2c/libF77/main.c b/libf2c/libF77/main.c
index c2dc88722f2..d1b4f4bf7ca 100644
--- a/libf2c/libF77/main.c
+++ b/libf2c/libF77/main.c
@@ -14,6 +14,7 @@ extern int atexit (void (*)(void));
 extern void f_init (void);
 extern int MAIN__ (void);
 
+int
 main (int argc, char **argv)
 {
   f_setarg (argc, argv);
diff --git a/libf2c/libI77/dfe.c b/libf2c/libI77/dfe.c
index ba8004c661f..e91bb38408d 100644
--- a/libf2c/libI77/dfe.c
+++ b/libf2c/libI77/dfe.c
@@ -3,6 +3,7 @@
 #include "fio.h"
 #include "fmt.h"
 
+int
 y_rsk (void)
 {
   if (f__curunit->uend || f__curunit->url <= f__recpos
@@ -16,6 +17,7 @@ y_rsk (void)
   return 0;
 }
 
+int
 y_getc (void)
 {
   int ch;
@@ -66,6 +68,7 @@ y_newrec (void)
   return (1);
 }
 
+int
 c_dfe (cilist * a)
 {
   f__sequential = 0;
diff --git a/libf2c/libI77/due.c b/libf2c/libI77/due.c
index 709136ceb1e..310c6139235 100644
--- a/libf2c/libI77/due.c
+++ b/libf2c/libI77/due.c
@@ -2,6 +2,7 @@
 #include "f2c.h"
 #include "fio.h"
 
+int
 c_due (cilist * a)
 {
   if (f__init != 1)
diff --git a/libf2c/libI77/err.c b/libf2c/libI77/err.c
index 94302f31c33..1a204e820bc 100644
--- a/libf2c/libI77/err.c
+++ b/libf2c/libI77/err.c
@@ -75,6 +75,7 @@ char *F_err[] = {
 };
 #define MAXERR (sizeof(F_err)/sizeof(char *)+100)
 
+int
 f__canseek (FILE * f) /*SYSDEP*/
 {
 #ifdef NON_UNIX_STDIO
@@ -199,6 +200,7 @@ f_init (void)
   p->uwrt = 1;
 }
 
+int
 f__nowreading (unit * x)
 {
   off_t loc;
@@ -229,6 +231,7 @@ done:
   return 0;
 }
 
+int
 f__nowwriting (unit * x)
 {
   off_t loc;
diff --git a/libf2c/libI77/fmt.c b/libf2c/libI77/fmt.c
index 7443cbab8da..fa9b73cd60e 100644
--- a/libf2c/libI77/fmt.c
+++ b/libf2c/libI77/fmt.c
@@ -43,7 +43,7 @@ ap_end (char *s)
    /*NOTREACHED*/ return 0;
 }
 
-static
+static int
 op_gen (int a, int b, int c, int d)
 {
   struct syl *p = &f__syl[f__pc];
@@ -105,7 +105,7 @@ f_s (char *s, int curloc)
   return (s);
 }
 
-static
+static int
 ne_d (char *s, char **p)
 {
   int n, x, sign = 0;
@@ -228,7 +228,7 @@ ne_d (char *s, char **p)
   return (1);
 }
 
-static
+static int
 e_d (char *s, char **p)
 {
   int i, im, n, w, d, e, found = 0, x = 0;
@@ -405,6 +405,7 @@ f_list (char *s)
   return (NULL);
 }
 
+int
 pars_f (char *s)
 {
   char *e;
@@ -445,7 +446,7 @@ pars_f (char *s)
 int f__cnt[STKSZ], f__ret[STKSZ], f__cp, f__rp;
 flag f__workdone, f__nonl;
 
-static
+static int
 type_f (int n)
 {
   switch (n)
@@ -586,6 +587,7 @@ do_fio (ftnint * number, char *ptr, ftnlen len)
   return (0);
 }
 
+int
 en_fio (void)
 {
   ftnint one = 1;
diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c
index 435b4b6c24a..a660a38f991 100644
--- a/libf2c/libI77/iio.c
+++ b/libf2c/libI77/iio.c
@@ -6,6 +6,7 @@ char *f__icend;
 extern icilist *f__svic;
 int f__icnum;
 extern int f__hiwater;
+int
 z_getc (void)
 {
   if (f__recpos++ < f__svic->icirlen)
@@ -23,6 +24,7 @@ z_putc (int c)
   if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen)
     *f__icptr++ = c;
 }
+int
 z_rnew (void)
 {
   f__icptr = f__svic->iciunit + (++f__icnum) * f__svic->icirlen;
@@ -39,6 +41,7 @@ z_endp (void)
   return 0;
 }
 
+int
 c_si (icilist * a)
 {
   if (f__init & 2)
@@ -88,6 +91,7 @@ s_rsfi (icilist * a)
   return (0);
 }
 
+int
 z_wnew (void)
 {
   if (f__recpos < f__hiwater)
diff --git a/libf2c/libI77/lread.c b/libf2c/libI77/lread.c
index b19c2d5e1a7..de6257d4557 100644
--- a/libf2c/libI77/lread.c
+++ b/libf2c/libI77/lread.c
@@ -65,6 +65,7 @@ un_getc (int x, FILE * f__cf)
 extern int ungetc (int, FILE *);	/* for systems with a buggy stdio.h */
 #endif
 
+int
 t_getc (void)
 {
   int ch;
@@ -662,6 +663,7 @@ have_lcount:
     }
 }
 
+int
 c_le (cilist * a)
 {
   if (f__init != 1)
@@ -682,6 +684,7 @@ c_le (cilist * a)
   return (0);
 }
 
+int
 l_read (ftnint * number, char *ptr, ftnlen len, ftnint type)
 {
 #define Ptr ((flex *)ptr)
diff --git a/libf2c/libI77/lwrite.c b/libf2c/libI77/lwrite.c
index c67bffce5be..da4a8e94ea9 100644
--- a/libf2c/libI77/lwrite.c
+++ b/libf2c/libI77/lwrite.c
@@ -207,6 +207,8 @@ lwrt_C (double a, double b)
   l_put (bb);
   PUT (')');
 }
+
+int
 l_write (ftnint * number, char *ptr, ftnlen len, ftnint type)
 {
 #define Ptr ((flex *)ptr)
diff --git a/libf2c/libI77/open.c b/libf2c/libI77/open.c
index 8a2b1630f44..72816d693e1 100644
--- a/libf2c/libI77/open.c
+++ b/libf2c/libI77/open.c
@@ -277,6 +277,7 @@ f_open (olist * a)
   return (0);
 }
 
+int
 fk_open (int seq, int fmt, ftnint n)
 {
   char nbuf[10];
diff --git a/libf2c/libI77/rdfmt.c b/libf2c/libI77/rdfmt.c
index 5371dc3a721..d5198c1def1 100644
--- a/libf2c/libI77/rdfmt.c
+++ b/libf2c/libI77/rdfmt.c
@@ -510,6 +510,7 @@ rd_POS (char *s)
   return (1);
 }
 
+int
 rd_ed (struct syl * p, char *ptr, ftnlen len)
 {
   int ch;
@@ -584,6 +585,7 @@ rd_ed (struct syl * p, char *ptr, ftnlen len)
   return (errno);
 }
 
+int
 rd_ned (struct syl * p)
 {
   switch (p->op)
diff --git a/libf2c/libI77/rsfe.c b/libf2c/libI77/rsfe.c
index fb332a4bffe..0faef18e072 100644
--- a/libf2c/libI77/rsfe.c
+++ b/libf2c/libI77/rsfe.c
@@ -4,6 +4,7 @@
 #include "fio.h"
 #include "fmt.h"
 
+int
 xrd_SL (void)
 {
   int ch;
@@ -18,6 +19,7 @@ xrd_SL (void)
   return (1);
 }
 
+int
 x_getc (void)
 {
   int ch;
@@ -43,12 +45,14 @@ x_getc (void)
   return (-1);
 }
 
+int
 x_endp (void)
 {
   xrd_SL ();
   return f__curunit->uend == 1 ? EOF : 0;
 }
 
+int
 x_rev (void)
 {
   (void) xrd_SL ();
diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c
index 9838f215250..85834c95ebc 100644
--- a/libf2c/libI77/rsne.c
+++ b/libf2c/libI77/rsne.c
@@ -40,7 +40,7 @@ extern ftnlen f__typesize[];
 
 extern flag f__lquit;
 extern int f__lcount, nml_read;
-extern t_getc (void);
+extern int t_getc (void);
 
 #undef abs
 #undef min
@@ -262,6 +262,7 @@ print_ne (cilist * a)
 
 static char where0[] = "namelist read start ";
 
+int
 x_rsne (cilist * a)
 {
   int ch, got1, k, n, nd, quote, readall;
diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
index 9b5212269a7..8f05e480662 100644
--- a/libf2c/libI77/sfe.c
+++ b/libf2c/libI77/sfe.c
@@ -15,6 +15,7 @@ e_rsfe (void)
   return (n);
 }
 
+int
 c_sfe (cilist * a)		/* check */
 {
   unit *p;
diff --git a/libf2c/libI77/sue.c b/libf2c/libI77/sue.c
index 70cff92c300..d4f942663d9 100644
--- a/libf2c/libI77/sue.c
+++ b/libf2c/libI77/sue.c
@@ -4,6 +4,7 @@
 extern uiolen f__reclen;
 off_t f__recloc;
 
+int
 c_sue (cilist * a)
 {
   f__external = f__sequential = 1;
diff --git a/libf2c/libI77/uio.c b/libf2c/libI77/uio.c
index 0ee743bd710..8a66f06dc62 100644
--- a/libf2c/libI77/uio.c
+++ b/libf2c/libI77/uio.c
@@ -3,6 +3,7 @@
 #include <sys/types.h>
 uiolen f__reclen;
 
+int
 do_us (ftnint * number, char *ptr, ftnlen len)
 {
   if (f__reading)
diff --git a/libf2c/libI77/wref.c b/libf2c/libI77/wref.c
index 4f350887d69..284bf9d1c72 100644
--- a/libf2c/libI77/wref.c
+++ b/libf2c/libI77/wref.c
@@ -13,6 +13,7 @@
 #include "fmt.h"
 #include "fp.h"
 
+int
 wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
 {
   char buf[FMAX + EXPMAXDIGS + 4], *s, *se;
@@ -203,6 +204,7 @@ wrt_E (ufloat * p, int w, int d, int e, ftnlen len)
   return 0;
 }
 
+int
 wrt_F (ufloat * p, int w, int d, ftnlen len)
 {
   int d1, sign, n;
diff --git a/libf2c/libI77/wrtfmt.c b/libf2c/libI77/wrtfmt.c
index c2a440fcb90..0190f7135ed 100644
--- a/libf2c/libI77/wrtfmt.c
+++ b/libf2c/libI77/wrtfmt.c
@@ -247,6 +247,7 @@ wrt_H (int a, char *s)
   return (1);
 }
 
+int
 wrt_L (Uint * n, int len, ftnlen sz)
 {
   int i;
@@ -320,6 +321,7 @@ wrt_G (ufloat * p, int w, int d, int e, ftnlen len)
   return (wrt_E (p, w, d, e, len));
 }
 
+int
 w_ed (struct syl * p, char *ptr, ftnlen len)
 {
   int i;
@@ -369,6 +371,7 @@ w_ed (struct syl * p, char *ptr, ftnlen len)
     }
 }
 
+int
 w_ned (struct syl * p)
 {
   switch (p->op)