From 77dc410393bbfeb45f0e573d57eed83d6d18ad7f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 11 Jul 2004 00:31:18 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 3 +++ gcc/fortran/trans-decl.c | 11 ----------- 2 files changed, 3 insertions(+), 11 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index fe6c6649293..4335a586789 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -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 * trans-common.c: Fix whitespace issues, make variable names diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 4cb2a65b0ae..b1b5120e0d0 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -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) -- 2.30.2