diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 9 |
2 files changed, 16 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cba3de8..9dcead3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,12 @@ +2007-01-17 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/30476 + * module.c (load_generic_interfaces): Make the marking of the + symbol as ambiguous conditional on the module names being + different. + (write_generic): Ensure that the generic interface has a + non-NULL module field. + 2007-01-16 Roger Sayle <roger@eyesopen.com> PR fortran/30404 diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 05056a5..1613a74 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3097,9 +3097,11 @@ load_generic_interfaces (void) gfc_symtree *st; p = p ? p : name; st = gfc_find_symtree (gfc_current_ns->sym_root, p); - st->ambiguous = sym->attr.generic ? 0 : 1; + if (!sym->attr.generic + && sym->module != NULL + && strcmp(module, sym->module) != 0) + st->ambiguous = 1; } - if (i == 1) { mio_interface_rest (&sym->generic); @@ -3748,6 +3750,9 @@ write_generic (gfc_symbol * sym) || !gfc_check_access (sym->attr.access, sym->ns->default_access)) return; + if (sym->module == NULL) + sym->module = gfc_get_string (module_name); + mio_symbol_interface (&sym->name, &sym->module, &sym->generic); } |