diff options
author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2009-01-07 12:39:12 +0000 |
---|---|---|
committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2009-01-07 12:39:12 +0000 |
commit | dcc61fc257100b0742340b450af4f958b138673d (patch) | |
tree | e181944d349053f2a568a53ccb5a430c93af7424 /gdb/f-typeprint.c | |
parent | befd85e74b156e716882e75fdbd68ec5b07db36a (diff) | |
download | gdb-dcc61fc257100b0742340b450af4f958b138673d.tar.gz |
gdb/
* f-typeprint.c (f_type_print_base <TYPE_CODE_STRUCT>): Fix output
spacing, a regression from 2008-04-22.
gdb/testsuite/
* gdb.fortran/derived-type.exp: New variables int4 and real4. Match
now the output exactly, using less wildcards. Expect also the output
of gfortran-4.3. Update for the f-valprint.c modification from
2008-04-22.
* gdb.fortran/subarray.exp: Expect also the output of gfortran-4.3.
Remove gdb_test test names where matching the command.
Diffstat (limited to 'gdb/f-typeprint.c')
-rw-r--r-- | gdb/f-typeprint.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 419a8831c0f..f5c10ab342a 100644 --- 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); |