re PR fortran/15481 ([meta-bugs] frontend adds superfluous symbols to namespaces)
* trans-decl.c (generate_local_decl): Remove workaround obsoleted by fix for PR 15481. From-SVN: r84475
This commit is contained in:
parent
24727d92ff
commit
77dc410393
|
@ -12,6 +12,9 @@
|
|||
|
||||
* parse.c (decode_statement): Fix matching of BLOCK DATA.
|
||||
|
||||
* trans-decl.c (generate_local_decl): Remove workaround obsoleted
|
||||
by fix for PR 15481.
|
||||
|
||||
2004-07-10 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
||||
|
||||
* trans-common.c: Fix whitespace issues, make variable names
|
||||
|
|
|
@ -1906,17 +1906,6 @@ generate_local_decl (gfc_symbol * sym)
|
|||
{
|
||||
if (sym->attr.flavor == FL_VARIABLE)
|
||||
{
|
||||
/* TODO: The frontend sometimes creates symbols for things which don't
|
||||
actually exist. E.g. common block names and the names of formal
|
||||
arguments. The latter are created while attempting to parse
|
||||
the argument list as a substring reference.
|
||||
|
||||
The proper fix is to avoid adding these symbols in the first place.
|
||||
For now we hack round it by ignoring anything with an unknown type.
|
||||
*/
|
||||
if (sym->ts.type == BT_UNKNOWN)
|
||||
return;
|
||||
|
||||
if (sym->attr.referenced)
|
||||
gfc_get_symbol_decl (sym);
|
||||
else if (sym->attr.dummy)
|
||||
|
|
Loading…
Reference in New Issue