This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
PR32634 -- reverted patch, gfortran.dg/interface_16.f90 failure
- From: Daniel Franke <franke dot daniel at gmail dot com>
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Thu, 12 Jul 2007 08:35:16 +0200
- Subject: PR32634 -- reverted patch, gfortran.dg/interface_16.f90 failure
- Dkim-signature: a=rsa-sha1; c=relaxed/relaxed; d=gmail.com; s=beta; h=domainkey-signature:received:received:from:to:subject:date:user-agent:cc:mime-version:content-type:message-id; b=VhtmBtbrNHz6DWB4VoGQ545oAnXClVOYk89p9oxbrcUUYpm3ETebNerrm8NajUmw38eNbKXsO3Z2susrKeGnaK33UC37pwlS1gRSu7x6Fl5+2/i9u+i/Qy1WrYXcD1aS/ghdFX4qnT5gP0z7/s7fTLCD1KFvdDy1oSVhMKryhDI=
- Domainkey-signature: a=rsa-sha1; c=nofws; d=gmail.com; s=beta; h=received:from:to:subject:date:user-agent:cc:mime-version:content-type:message-id; b=c/aTSDR5nJ4gUFjRThHyvs6iqaGr2YznDT4ibP1orY8j5YBtS5ECJL3FUqpcCdP/SOWUkifg7MkQjhhgQnH9J/jV2ZftK2Nk2JEl0WiO2RqNVOrvbCo7nCN0RAqE0NK4UMmXf+DRi23gumXryxXjVe85n+xbNUmyQbBGh1ijQ18=
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);
}