This is the mail archive of the fortran@gcc.gnu.org mailing list for the GNU Fortran project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

PR32634 -- reverted patch, gfortran.dg/interface_16.f90 failure


Hi all,

as requested by Paul in PR32727, I reverted the patch for PR32634 (module.c) 
and reopened it accordingly. Please note taht until both issues are fixed, 
gfortran.dg/interface_16.f90 will fail. 

The committed changes are attached to this mail.


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.


Regards
	Daniel
Index: module.c
===================================================================
--- module.c    (revision 126571)
+++ module.c    (working copy)
@@ -3947,9 +3947,6 @@
 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 @@
   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);
 }



Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]