diff options
| author | Bernhard Heckel <bernhard.heckel@intel.com> | 2016-05-25 08:47:17 +0200 |
|---|---|---|
| committer | Bernhard Heckel <bernhard.heckel@intel.com> | 2016-05-25 08:47:17 +0200 |
| commit | 9b2db1fd27cea1323a7ae0beb9399c8e1c4a3741 (patch) | |
| tree | 2017d76cdbef6b02c0f71e4ff3f6a14ea4f74825 /gdb/testsuite | |
| parent | 72b1705502a891e07d40ad215146c71193920801 (diff) | |
| download | gdb-9b2db1fd27cea1323a7ae0beb9399c8e1c4a3741.zip gdb-9b2db1fd27cea1323a7ae0beb9399c8e1c4a3741.tar.gz gdb-9b2db1fd27cea1323a7ae0beb9399c8e1c4a3741.tar.bz2 | |
Fortran, typeprint: Take level of details into account when printing elements of a structure.
According to the typeprint's description, elements of a structure
should not be printed when show is < 1.
This variable is also used to distinguish the level of details
between "ptype" and "whatis" expressions.
Before:
(gdb) whatis t1v
type = Type t1
integer(kind=4) :: t1_i
real(kind=4) :: t1_r
End Type t1
After:
(gdb) whatis t1v
type = Type t1
2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com>
gdb/Changelog:
* f-typeprint.c (f_type_print_base): Don't print fields when show < 0.
gdb/testsuite/Changelog:
* gdb.fortran/whatis_type.exp: Adapt expected output.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.fortran/whatis_type.exp | 14 |
2 files changed, 6 insertions, 12 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 2b05192..712ee2f 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2016-05-25 Bernhard Heckel <bernhard.heckel@intel.com> + * gdb.fortran/whatis_type.exp: Adapt expected output. + +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. diff --git a/gdb/testsuite/gdb.fortran/whatis_type.exp b/gdb/testsuite/gdb.fortran/whatis_type.exp index 7265923..0b7a1b7 100644 --- a/gdb/testsuite/gdb.fortran/whatis_type.exp +++ b/gdb/testsuite/gdb.fortran/whatis_type.exp @@ -38,18 +38,8 @@ gdb_continue_to_breakpoint "bp1" set t1_i "$int :: t1_i" set t1_r "$real :: t1_r" -gdb_test "whatis t1" \ - [multi_line "type = Type t1" \ - " $t1_i" \ - " $t1_r" \ - "End Type t1"] \ - "whatis t1" -gdb_test "whatis t1v" \ - [multi_line "type = Type t1" \ - " $t1_i" \ - " $t1_r" \ - "End Type t1"] \ - "whatis t1v" +gdb_test "whatis t1" "type = Type t1" +gdb_test "whatis t1v" "type = Type t1" gdb_test "ptype t1" \ [multi_line "type = Type t1" \ |