* trans-decl.c (generate_local_decl): Remove workaround obsoleted

by fix for PR 15481.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84475 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index fe6c664..4335a58 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 4cb2a65..b1b5120 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)