diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-10-29 17:06:58 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-10-29 17:06:58 +0000 |
| commit | 285b1f01acaf962e7a668aed7bab4d609a19fc3b (patch) | |
| tree | b132a8432a4fff53e86c75aa2a96a5d78521bd39 /gcc/fortran/trans-decl.c | |
| parent | 7f71272e3b7a420febff64d3dd7ab58d5988ccaa (diff) | |
| download | gcc-285b1f01acaf962e7a668aed7bab4d609a19fc3b.zip gcc-285b1f01acaf962e7a668aed7bab4d609a19fc3b.tar.gz gcc-285b1f01acaf962e7a668aed7bab4d609a19fc3b.tar.bz2 | |
[multiple changes]
2015-10-29 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67885
* trans-decl.c (generate_local_decl): Mark PARAMETER entities in
BLOCK construct.
2015-10-26 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/67885
* gfortran.dg/pr67885.f90: New test.
From-SVN: r229540
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index ded5c1f..098a327 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -5215,6 +5215,16 @@ generate_local_decl (gfc_symbol * sym) "Unused parameter %qs which has been explicitly " "imported at %L", sym->name, &sym->declared_at); } + + if (sym->ns + && sym->ns->parent + && sym->ns->parent->code + && sym->ns->parent->code->op == EXEC_BLOCK) + { + if (sym->attr.referenced) + gfc_get_symbol_decl (sym); + sym->mark = 1; + } } else if (sym->attr.flavor == FL_PROCEDURE) { |