diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-07-11 00:31:18 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-07-11 00:31:18 +0200 |
| commit | 77dc410393bbfeb45f0e573d57eed83d6d18ad7f (patch) | |
| tree | 2ae0a639e66932c48731811d9e8f6f5adb62f500 /gcc/fortran | |
| parent | 24727d92ff9cc3f278c3350325aacb4a149a4f26 (diff) | |
| download | gcc-77dc410393bbfeb45f0e573d57eed83d6d18ad7f.zip gcc-77dc410393bbfeb45f0e573d57eed83d6d18ad7f.tar.gz gcc-77dc410393bbfeb45f0e573d57eed83d6d18ad7f.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran')
| -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) |