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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index fe6c66492935237a05c8771e65da4c46b6b95b05..4335a586789ccd87e3603915bca081842a54b430 100644 (file)
--- 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  <tobias.schlueter@physik.uni-muenchen.de>
 
        * trans-common.c: Fix whitespace issues, make variable names

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 4cb2a65b0ae53829eeb1a8ea569c88998c3b4e47..b1b5120e0d05fd0a47bc079c560c51a64a6bdd45 100644 (file)
--- 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)