diff options
Diffstat (limited to 'gcc/fortran/dump-parse-tree.c')
| -rw-r--r-- | gcc/fortran/dump-parse-tree.c | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/gcc/fortran/dump-parse-tree.c b/gcc/fortran/dump-parse-tree.c index 64e4a81..3b7fc69 100644 --- a/gcc/fortran/dump-parse-tree.c +++ b/gcc/fortran/dump-parse-tree.c @@ -544,8 +544,6 @@ gfc_show_attr (symbol_attribute * attr) gfc_status (" TARGET"); if (attr->dummy) gfc_status (" DUMMY"); - if (attr->common) - gfc_status (" COMMON"); if (attr->result) gfc_status (" RESULT"); if (attr->entry) @@ -559,8 +557,6 @@ gfc_show_attr (symbol_attribute * attr) gfc_status (" IN-NAMELIST"); if (attr->in_common) gfc_status (" IN-COMMON"); - if (attr->saved_common) - gfc_status (" SAVED-COMMON"); if (attr->function) gfc_status (" FUNCTION"); @@ -616,7 +612,6 @@ gfc_show_symbol (gfc_symbol * sym) { gfc_formal_arglist *formal; gfc_interface *intr; - gfc_symbol *s; if (sym == NULL) return; @@ -649,14 +644,6 @@ gfc_show_symbol (gfc_symbol * sym) gfc_status (" %s", intr->sym->name); } - if (sym->common_head) - { - show_indent (); - gfc_status ("Common members:"); - for (s = sym->common_head; s; s = s->common_next) - gfc_status (" %s", s->name); - } - if (sym->result) { show_indent (); @@ -1445,7 +1432,7 @@ gfc_show_namespace (gfc_namespace * ns) } gfc_current_ns = ns; - gfc_traverse_symtree (ns, show_symtree); + gfc_traverse_symtree (ns->sym_root, show_symtree); for (op = GFC_INTRINSIC_BEGIN; op != GFC_INTRINSIC_END; op++) { |