void gfc_trans_common (gfc_namespace *ns) { gfc_common_head *c; /* Translate the blank common block. */ if (ns->blank_common.head != NULL) { c = gfc_get_common_head (); /* We've lost the real location, so use the location of the enclosing procedure. */ c->where = ns->proc_name->declared_at; strcpy (c->name, BLANK_COMMON_NAME); translate_common (c, ns->blank_common.head); } /* Translate all named common blocks. */ gfc_traverse_symtree (ns->common_root, named_common); /* Commit the newly created symbols for common blocks. */ gfc_commit_symbols (); /* Translate local equivalence. */ finish_equivalences (ns); }
void gfc_trans_common (gfc_namespace *ns) { gfc_common_head *c; /* Translate the blank common block. */ if (ns->blank_common.head != NULL) { c = gfc_get_common_head (); c->where = ns->blank_common.head->common_head->where; strcpy (c->name, BLANK_COMMON_NAME); translate_common (c, ns->blank_common.head); } /* Translate all named common blocks. */ gfc_traverse_symtree (ns->common_root, named_common); /* Translate local equivalence. */ finish_equivalences (ns); /* Commit the newly created symbols for common blocks and module equivalences. */ gfc_commit_symbols (); }