diff options
Diffstat (limited to 'gdb/f-typeprint.c')
-rw-r--r-- | gdb/f-typeprint.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gdb/f-typeprint.c b/gdb/f-typeprint.c index 41862a2b353..882696c9394 100644 --- a/gdb/f-typeprint.c +++ b/gdb/f-typeprint.c @@ -176,11 +176,11 @@ f_language::f_type_print_varspec_suffix (struct type *type, else if (type_not_allocated (type)) print_rank_only = true; else if ((TYPE_ASSOCIATED_PROP (type) - && PROP_CONST != TYPE_ASSOCIATED_PROP (type)->kind ()) + && !TYPE_ASSOCIATED_PROP (type)->is_constant ()) || (TYPE_ALLOCATED_PROP (type) - && PROP_CONST != TYPE_ALLOCATED_PROP (type)->kind ()) + && !TYPE_ALLOCATED_PROP (type)->is_constant ()) || (TYPE_DATA_LOCATION (type) - && PROP_CONST != TYPE_DATA_LOCATION (type)->kind ())) + && !TYPE_DATA_LOCATION (type)->is_constant ())) { /* This case exist when we ptype a typename which has the dynamic properties but cannot be resolved as there is no object. */ @@ -395,7 +395,7 @@ f_language::f_type_print_base (struct type *type, struct ui_file *stream, asked to print the type of a value with a dynamic type then the bounds will not have been resolved. */ - if (type->bounds ()->high.kind () == PROP_CONST) + if (type->bounds ()->high.is_constant ()) { LONGEST upper_bound = f77_get_upperbound (type); |