[Fwd: [gfortran, committed] Remove workaround obsoleted by fix forPR15481]

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

Messed up the address the first time ...

-------- Original Message --------
Subject: [gfortran, committed] Remove workaround obsoleted by fix for
PR15481
Date: Sun, 11 Jul 2004 00:33:05 +0200
From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
To: gfortra@physik.uni-muenchen.de, patch <gcc-patches@gcc.gnu.org>


This removes a workaround for PR 15481 that I had missed. Built and
tested on i686-pc-linux, submitted under the obviously correct rule.

- Tobi

Index: ChangeLog
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/ChangeLog,v
retrieving revision 1.112
diff -u -p -r1.112 ChangeLog
--- ChangeLog   10 Jul 2004 21:52:20 -0000      1.112
+++ ChangeLog   10 Jul 2004 22:30:24 -0000
@@ -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
Index: trans-decl.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/trans-decl.c,v
retrieving revision 1.19
diff -u -p -r1.19 trans-decl.c
--- trans-decl.c        9 Jul 2004 14:53:39 -0000       1.19
+++ trans-decl.c        10 Jul 2004 22:30:24 -0000
@@ -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)