From 759e69a1df0e044943fbe9bf4de481278cc9d71e Mon Sep 17 00:00:00 2001 From: dfranke Date: Thu, 12 Jul 2007 06:31:12 +0000 Subject: [PATCH] 2007-07-12 Daniel Franke PR fortran/32634 PR fortran/32727 * module.c: Reverted Paul's patch from 2007-07-10. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126572 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/module.c | 18 +----------------- 2 files changed, 7 insertions(+), 17 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 092a149..786abca 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-12 Daniel Franke + + PR fortran/32634 + PR fortran/32727 + * module.c: Reverted Paul's patch from 2007-07-10. + 2007-07-11 Richard Guenther * trans-array.c (gfc_conv_array_parameter): Use correct diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 1471b8b..288f1f9 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3947,9 +3947,6 @@ write_operator (gfc_user_op *uop) static void write_generic (gfc_symbol *sym) { - const char *p; - int nuse, j; - if (sym->generic == NULL || !gfc_check_access (sym->attr.access, sym->ns->default_access)) return; @@ -3957,20 +3954,7 @@ write_generic (gfc_symbol *sym) if (sym->module == NULL) sym->module = gfc_get_string (module_name); - /* See how many use names there are. If none, go through the loop - at least once. */ - nuse = number_use_names (sym->name); - if (nuse == 0) - nuse = 1; - - for (j = 1; j <= nuse; j++) - { - /* Get the jth local name for this symbol. */ - p = find_use_name_n (sym->name, &j); - - /* Make an interface with that name. */ - mio_symbol_interface (&p, &sym->module, &sym->generic); - } + mio_symbol_interface (&sym->name, &sym->module, &sym->generic); } -- 2.7.4