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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 092a1499c2d33420c5ae7a4fa26f6fd8310e75a4..786abca547f5e1c45d2c01b02b365d5ad8231b9e 100644 (file)
--- 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 1471b8bf5805ef8c65bda9088b979eb2f63b2ef4..288f1f92a354f3d71540e96a814e7a7de16ff3c0 100644 (file)
--- 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);
 }