gdb: fix shellcheck warnings SC2154 (referenced but not assigned) in gdbarch.sh

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

diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c
index 0093aebddc2c10886729f9bac5645263e0d1fb56..e4a2beb930b422f705ff4c329b3ccd9ea47da0de 100644 (file)
--- a/gdb/f-typeprint.c
+++ b/gdb/f-typeprint.c
@@ -1,6 +1,6 @@
 /* Support for printing Fortran types for GDB, the GNU debugger.
 
-   Copyright (C) 1986-2019 Free Software Foundation, Inc.
+   Copyright (C) 1986-2020 Free Software Foundation, Inc.
 
    Contributed by Motorola.  Adapted from the C version by Farooq Butt
    (fmbutt@engage.sps.mot.com).
@@ -54,7 +54,6 @@ f_print_typedef (struct type *type, struct symbol *new_symbol,
 {
   type = check_typedef (type);
   f_print_type (type, "", stream, 0, 0, &type_print_raw_options);
-  fprintf_filtered (stream, "\n");
 }
 
 /* LEVEL is the depth to indent lines by.  */
@@ -436,7 +435,8 @@ f_type_print_base (struct type *type, struct ui_file *stream, int show,
              f_type_print_base (TYPE_FIELD_TYPE (type, index), stream,
                                 show - 1, level + 4);
              fputs_filtered (" :: ", stream);
-             fputs_filtered (TYPE_FIELD_NAME (type, index), stream);
+             fputs_styled (TYPE_FIELD_NAME (type, index),
+                           variable_name_style.style (), stream);
              f_type_print_varspec_suffix (TYPE_FIELD_TYPE (type, index),
                                           stream, show - 1, 0, 0, 0, false);
              fputs_filtered ("\n", stream);