diff -uprN src0/gdb/f-typeprint.c src1/gdb/f-typeprint.c
--- src0/gdb/f-typeprint.c	2009-05-26 09:56:19.000000000 -0400
+++ src1/gdb/f-typeprint.c	2009-08-06 10:23:55.000000000 -0400
@@ -154,7 +154,6 @@ f_type_print_varspec_suffix (struct type
 			     int arrayprint_recurse_level)
 {
   int upper_bound, lower_bound;
-  int retcode;
   /* No static variables are permitted as an error call may occur during
      execution of this function.  */
 
@@ -259,7 +258,6 @@ void
 f_type_print_base (struct type *type, struct ui_file *stream, int show,
 		   int level)
 {
-  int retcode;
   int upper_bound;
 
   int index;
diff -uprN src0/gdb/f-valprint.c src1/gdb/f-valprint.c
--- src0/gdb/f-valprint.c	2009-07-06 09:28:18.000000000 -0400
+++ src1/gdb/f-valprint.c	2009-08-06 10:25:36.000000000 -0400
@@ -92,7 +92,6 @@ f77_get_dynamic_length_of_aggregate (str
 {
   int upper_bound = -1;
   int lower_bound = 1;
-  int retcode;
 
   /* Recursively go all the way down into a possibly multi-dimensional
      F77 array and get the bounds.  For simple arrays, this is pretty
@@ -126,7 +125,7 @@ f77_create_arrayprint_offset_tbl (struct
   struct type *tmp_type;
   int eltlen;
   int ndimen = 1;
-  int upper, lower, retcode;
+  int upper, lower;
 
   tmp_type = type;