diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-10 22:31:18 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-10 22:31:18 +0000 |
| commit | b5a3ac6338aafe27953da02faa2233ddee7050a8 (patch) | |
| tree | 2ae0a639e66932c48731811d9e8f6f5adb62f500 /gcc | |
| parent | 95d044d2cf70f4642d86615af18156ea7fe40dd7 (diff) | |
| download | ppe42-gcc-b5a3ac6338aafe27953da02faa2233ddee7050a8.tar.gz ppe42-gcc-b5a3ac6338aafe27953da02faa2233ddee7050a8.zip | |
* 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
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 fe6c6649293..4335a586789 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 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) |
