Level of indentation was not proper handled when printing
the elements type's name.
Before:
type = Type t1
integer(kind=4) :: var_1
integer(kind=4) :: var_2
End Type t1
After:
type = Type t1
integer(kind=4) :: var_1
integer(kind=4) :: var_2
End Type t1
2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
gdb/Changelog:
* f-typeprint.c (f_type_print_base): Take print level into account.
gdb/testsuite/Changelog:
* gdb.fortran/print_type.exp: Fix expected output.
* gdb.fortran/whatis_type.exp: Fix expected output.
+2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
+
+ * f-typeprint.c (f_type_print_base): Take print level into account.
+
2016-05-24 Tom Tromey <tom@tromey.com>
PR python/17386:
if ((show <= 0) && (TYPE_NAME (type) != NULL))
{
- fputs_filtered (TYPE_NAME (type), stream);
+ fprintfi_filtered (level, stream, "%s", TYPE_NAME (type));
return;
}
2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
+ * gdb.fortran/print_type.exp: Fix expected output.
+ * gdb.fortran/whatis_type.exp: Fix expected output.
+
+2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
+
* gdb.fortran/whatis_type.exp: Use multi_line.
2016-05-24 Tom Tromey <tom@tromey.com>
gdb_test "whatis t1" \
[multi_line "type = Type t1" \
- "$t1_i" \
- "$t1_r" \
+ " $t1_i" \
+ " $t1_r" \
"End Type t1"] \
"whatis t1"
gdb_test "whatis t1v" \
[multi_line "type = Type t1" \
- "$t1_i" \
- "$t1_r" \
+ " $t1_i" \
+ " $t1_r" \
"End Type t1"] \
"whatis t1v"