git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Daniel Franke 2007-07-12 02:31:12 -04:00 committed by Daniel Franke
parent 45312d9d96
commit 56b6a5fe69
2 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

18
gcc/fortran/module.c
View File

@ -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);
}