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 ();
}
