diff options
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 5d26a78..5d181e2 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -542,10 +542,11 @@ void gfc_show_attr (symbol_attribute *attr) { - gfc_status ("(%s %s %s %s", gfc_code2string (flavors, attr->flavor), + gfc_status ("(%s %s %s %s %s", gfc_code2string (flavors, attr->flavor), gfc_intent_string (attr->intent), gfc_code2string (access_types, attr->access), - gfc_code2string (procedures, attr->proc)); + gfc_code2string (procedures, attr->proc), + gfc_code2string (save_status, attr->save)); if (attr->allocatable) gfc_status (" ALLOCATABLE"); @@ -561,8 +562,6 @@ gfc_show_attr (symbol_attribute *attr) gfc_status (" POINTER"); if (attr->protected) gfc_status (" PROTECTED"); - if (attr->save) - gfc_status (" SAVE"); if (attr->value) gfc_status (" VALUE"); if (attr->volatile_) |