gdb/

[thirdparty/binutils-gdb.git] / gdb / f-typeprint.c

diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 419a8831c0fdca36ca14fca82524331a17904c18..f5c10ab342a5fad4988d07c54e29b0480056a9fa 100644 (file)
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -359,8 +359,7 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show,
          f_type_print_base (TYPE_FIELD_TYPE (type, index), stream, show,
                             level + 4);
          fputs_filtered (" :: ", stream);
-         fprintfi_filtered (level, stream, "%s",
-                            TYPE_FIELD_NAME (type, index));
+         fputs_filtered (TYPE_FIELD_NAME (type, index), stream);
          f_type_print_varspec_suffix (TYPE_FIELD_TYPE (type, index),
                                       stream, 0, 0, 0);
          fputs_filtered ("\n", stream);