diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 3 | ||||
| -rw-r--r-- | gcc/fortran/trans-decl.c | 11 |
2 files changed, 3 insertions, 11 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index fe6c664..4335a58 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 <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 --- 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) |