X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Ffortran%2Ftrans-decl.c;h=b1b5120e0d05fd0a47bc079c560c51a64a6bdd45;hb=b5a3ac6338aafe27953da02faa2233ddee7050a8;hp=4cb2a65b0ae53829eeb1a8ea569c88998c3b4e47;hpb=95d044d2cf70f4642d86615af18156ea7fe40dd7;p=pf3gnuchains%2Fgcc-fork.git

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)