diff options
| author | Daniel Franke <franke.daniel@gmail.com> | 2007-07-12 02:31:12 -0400 |
|---|---|---|
| committer | Daniel Franke <dfranke@gcc.gnu.org> | 2007-07-12 02:31:12 -0400 |
| commit | 56b6a5fe69d1e0586ec38e16425386ec39449bc5 (patch) | |
| tree | 6277cda191dab28517c3ce246da06868d70c7902 /gcc | |
| parent | 45312d9d96a9968d0557de8369d4194211f5de28 (diff) | |
| download | gcc-56b6a5fe69d1e0586ec38e16425386ec39449bc5.zip gcc-56b6a5fe69d1e0586ec38e16425386ec39449bc5.tar.gz gcc-56b6a5fe69d1e0586ec38e16425386ec39449bc5.tar.bz2 | |
re PR fortran/32634 (renamed, use associated generic interface rejected)
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.
From-SVN: r126572
Diffstat (limited to 'gcc')
| -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 092a149..786abca 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 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); } |