diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index cab86be281b3..2d4db47350da 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,17 @@
+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.
diff --git a/libf2c/libI77/rdfmt.c b/libf2c/libI77/rdfmt.c
index 1006ab1982df..5371dc3a721b 100644
--- a/libf2c/libI77/rdfmt.c
+++ b/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)
diff --git a/libf2c/libU77/access_.c b/libf2c/libU77/access_.c
index 02dcd51f5bc2..0a2dbce9d78b 100644
--- a/libf2c/libU77/access_.c
+++ b/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);
diff --git a/libf2c/libU77/chdir_.c b/libf2c/libU77/chdir_.c
index d9afb5736594..bebdeb0a0c6d 100644
--- a/libf2c/libU77/chdir_.c
+++ b/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);
diff --git a/libf2c/libU77/chmod_.c b/libf2c/libU77/chmod_.c
index 554d259a6d93..86e620cbc2f0 100644
--- a/libf2c/libU77/chmod_.c
+++ b/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;
diff --git a/libf2c/libU77/ctime_.c b/libf2c/libU77/ctime_.c
index 34e6d7c712e1..56e660562b74 100644
--- a/libf2c/libU77/ctime_.c
+++ b/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;
 
diff --git a/libf2c/libU77/link_.c b/libf2c/libU77/link_.c
index 88c110f4f5e4..f3070e4b6e97 100644
--- a/libf2c/libU77/link_.c
+++ b/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);
diff --git a/libf2c/libU77/lstat_.c b/libf2c/libU77/lstat_.c
index 0d5a8300910e..3914cc64ff4d 100644
--- a/libf2c/libU77/lstat_.c
+++ b/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;
 
diff --git a/libf2c/libU77/rename_.c b/libf2c/libU77/rename_.c
index bef384b6fea4..59759bcfb543 100644
--- a/libf2c/libU77/rename_.c
+++ b/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);
diff --git a/libf2c/libU77/stat_.c b/libf2c/libU77/stat_.c
index b864da298e33..65a63b7c9f56 100644
--- a/libf2c/libU77/stat_.c
+++ b/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;
 
diff --git a/libf2c/libU77/symlnk_.c b/libf2c/libU77/symlnk_.c
index f51739a7867c..92ec605a4231 100644
--- a/libf2c/libU77/symlnk_.c
+++ b/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);
diff --git a/libf2c/libU77/unlink_.c b/libf2c/libU77/unlink_.c
index 2d8fbcba87c8..08222d927496 100644
--- a/libf2c/libU77/unlink_.c
+++ b/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);