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
+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
2007-07-11 Richard Guenther <rguenther@suse.de>
* trans-array.c (gfc_conv_array_parameter): Use correct
static void
write_generic (gfc_symbol *sym)
{
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;
if (sym->generic == NULL
|| !gfc_check_access (sym->attr.access, sym->ns->default_access))
return;
if (sym->module == NULL)
sym->module = gfc_get_string (module_name);
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);