diff options
| author | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-12 06:31:12 +0000 |
|---|---|---|
| committer | dfranke <dfranke@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-12 06:31:12 +0000 |
| commit | 759e69a1df0e044943fbe9bf4de481278cc9d71e (patch) | |
| tree | 6277cda191dab28517c3ce246da06868d70c7902 | |
| parent | 904b60814dcdb2826d77229bff5ba14f723e6af3 (diff) | |
| download | ppe42-gcc-759e69a1df0e044943fbe9bf4de481278cc9d71e.tar.gz ppe42-gcc-759e69a1df0e044943fbe9bf4de481278cc9d71e.zip | |
2007-07-12 Daniel Franke <franke.daniel@gmail.com>
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/module.c | 18 |
2 files changed, 7 insertions, 17 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 092a1499c2d..786abca547f 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-12 Daniel Franke <franke.daniel@gmail.com> + + PR fortran/32634 + PR fortran/32727 + * module.c: Reverted Paul's patch from 2007-07-10. + 2007-07-11 Richard Guenther <rguenther@suse.de> * trans-array.c (gfc_conv_array_parameter): Use correct diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index 1471b8bf580..288f1f92a35 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); } |
