diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index e3784ac589..52a8cc6561 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2006-03-01  Wu Zhou  <woodzltc@cn.ibm.com>
+
+	 * f-typeprint.c (f_type_print_base): Delete the redundant space.
+
 2006-02-28  Kevin Buettner  <kevinb@redhat.com>
 
 	* Makefile.in (mn10300-linux-tdep.o): Update dependencies.
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index b0de0ab011..31b96a371f 100644
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -416,7 +416,7 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show,
          the type name is, as recorded in the type itself.  If there
          is no type name, then complain. */
       if (TYPE_NAME (type) != NULL)
-	fprintfi_filtered (level, stream, "%s ", TYPE_NAME (type));
+	fprintfi_filtered (level, stream, "%s", TYPE_NAME (type));
       else
 	error (_("Invalid type code (%d) in symbol table."), TYPE_CODE (type));
       break;