rdfmt.c (rd_I): Delete unused variable(s).

	* libI77/rdfmt.c (rd_I): Delete unused variable(s).
	* libU77/access_.c (G77_access_0): Likewise.
	* libU77/chdir_.c (G77_chdir_0): Likewise.
	* libU77/chmod_.c (G77_chmod_0): Likewise.
	* libU77/ctime_.c (G77_ctime_0): Likewise.
	* libU77/link_.c (G77_link_0): Likewise.
	* libU77/lstat_.c (G77_lstat_0): Likewise.
	* libU77/rename_.c (G77_rename_0): Likewise.
	* libU77/stat_.c (G77_stat_0): Likewise.
	* libU77/symlnk_.c (G77_symlnk_0): Likewise.
	* libU77/unlink_.c (G77_unlink_0): Likewise.

From-SVN: r54168

libf2c/ChangeLog

+Sun Jun  2 08:58:05 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* libI77/rdfmt.c (rd_I): Delete unused variable(s).
+	* libU77/access_.c (G77_access_0): Likewise.
+	* libU77/chdir_.c (G77_chdir_0): Likewise.
+	* libU77/chmod_.c (G77_chmod_0): Likewise.
+	* libU77/ctime_.c (G77_ctime_0): Likewise.
+	* libU77/link_.c (G77_link_0): Likewise.
+	* libU77/lstat_.c (G77_lstat_0): Likewise.
+	* libU77/rename_.c (G77_rename_0): Likewise.
+	* libU77/stat_.c (G77_stat_0): Likewise.
+	* libU77/symlnk_.c (G77_symlnk_0): Likewise.
+	* libU77/unlink_.c (G77_unlink_0): Likewise.
+
 Sun Jun  2 08:55:20 2002  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
 
 	* libI77/inquire.c (f_inqu): Avoid ambiguous else clauses.

libf2c/libI77/rdfmt.c

@@ -96,7 +96,7 @@ rd_Z (Uint * n, int w, ftnlen len)
 static int
 rd_I (Uint * n, int w, ftnlen len, register int base)
 {
-  int bad, ch, sign;
+  int ch, sign;
   longint x = 0;
 
   if (w <= 0)

libf2c/libU77/access_.c

@@ -51,7 +51,6 @@ integer
 G77_access_0 (const char *name, const char *mode, ftnlen Lname, ftnlen Lmode)
 {
   char *buff;
-  char *bp, *blast;
   int amode, i;
 
   buff = malloc (Lname + 1);

libf2c/libU77/chdir_.c

@@ -38,7 +38,6 @@ integer
 G77_chdir_0 (const char *name, const ftnlen Lname)
 {
   char *buff;
-  char *bp, *blast;
   int i;
 
   buff = malloc (Lname + 1);

libf2c/libU77/chmod_.c

@@ -50,7 +50,6 @@ G77_chmod_0 ( /* const */ char *name, /* const */ char *mode,
 	     const ftnlen Lname, const ftnlen Lmode)
 {
   char *buff;
-  char *bp, *blast;
   int i;
   ftnlen l, l2;
   ftnlen six = 6;

libf2c/libU77/ctime_.c

@@ -42,7 +42,6 @@ Boston, MA 02111-1307, USA.  */
 /* Character */ void
 G77_ctime_0 (char *chtime, const ftnlen Lchtime, longint * xstime)
 {
-  int i, l;
   int s_copy ();
   time_t stime = *xstime;
 

libf2c/libU77/link_.c

@@ -42,7 +42,6 @@ G77_link_0 (const char *path1, const char *path2, const ftnlen Lpath1,
 {
 #if defined (HAVE_LINK)
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = malloc (Lpath1 + 1);

libf2c/libU77/lstat_.c

@@ -37,7 +37,6 @@ G77_lstat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
 #if HAVE_LSTAT
   char *buff;
-  char *bp, *blast;
   int err;
   struct stat buf;
 

libf2c/libU77/rename_.c

@@ -36,7 +36,6 @@ G77_rename_0 (const char *path1, const char *path2, const ftnlen Lpath1,
 	      const ftnlen Lpath2)
 {
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = malloc (Lpath1 + 1);

libf2c/libU77/stat_.c

@@ -33,7 +33,6 @@ integer
 G77_stat_0 (const char *name, integer statb[13], const ftnlen Lname)
 {
   char *buff;
-  char *bp, *blast;
   int err;
   struct stat buf;
 

libf2c/libU77/symlnk_.c

@@ -41,7 +41,6 @@ G77_symlnk_0 (const char *path1, const char *path2, const ftnlen Lpath1,
 {
 #if HAVE_SYMLINK
   char *buff1, *buff2;
-  char *bp, *blast;
   int i;
 
   buff1 = (char *) malloc (Lpath1 + 1);

libf2c/libU77/unlink_.c

@@ -39,7 +39,6 @@ integer
 G77_unlink_0 (const char *str, const ftnlen Lstr)
 {
   char *buff;
-  char *bp, *blast;
   int i;
 
   buff = malloc (Lstr + 1);