diff options
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 5822cb0..614d8a9 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -912,9 +912,9 @@ resolve_entries (gfc_namespace *ns) /* Resolve common variables. */ static void -resolve_common_vars (gfc_symbol *sym, bool named_common) +resolve_common_vars (gfc_common_head *common_block, bool named_common) { - gfc_symbol *csym = sym; + gfc_symbol *csym = common_block->head; for (; csym; csym = csym->common_next) { @@ -972,7 +972,7 @@ resolve_common_blocks (gfc_symtree *common_root) if (common_root->right) resolve_common_blocks (common_root->right); - resolve_common_vars (common_root->n.common->head, true); + resolve_common_vars (common_root->n.common, true); /* The common name is a global name - in Fortran 2003 also if it has a C binding name, since Fortran 2008 only the C binding name is a global @@ -15289,7 +15289,7 @@ resolve_types (gfc_namespace *ns) resolve_entries (ns); - resolve_common_vars (ns->blank_common.head, false); + resolve_common_vars (&ns->blank_common, false); resolve_common_blocks (ns->common_root); resolve_contained_functions (ns); |