diff options
Diffstat (limited to 'gdb/f-valprint.c')
| -rw-r--r-- | gdb/f-valprint.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gdb/f-valprint.c b/gdb/f-valprint.c index 76981fa4117..bd16a4348d3 100644 --- a/gdb/f-valprint.c +++ b/gdb/f-valprint.c @@ -313,7 +313,7 @@ f_value_print_innner (struct value *val, struct ui_file *stream, int recurse, /* Starting from the Fortran 90 standard, Fortran supports derived types. */ fprintf_filtered (stream, "( "); - for (index = 0; index < TYPE_NFIELDS (type); index++) + for (index = 0; index < type->num_fields (); index++) { struct value *field = value_field (val, index); |