diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-12-19 21:18:18 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-12-19 21:18:18 +0100 |
| commit | 1e815d32216f4c35208830b02c933895b1c2e9e2 (patch) | |
| tree | 2274ec03bb762bdfd67f64a0e9902f081c96eb2d /gcc/fortran/parse.c | |
| parent | 11c71a22d90023ec27f04b80e92838af8af692a2 (diff) | |
| download | gcc-1e815d32216f4c35208830b02c933895b1c2e9e2.zip gcc-1e815d32216f4c35208830b02c933895b1c2e9e2.tar.gz gcc-1e815d32216f4c35208830b02c933895b1c2e9e2.tar.bz2 | |
re PR fortran/51605 (internal compiler error gfc_trans_block_construct, at fortran/trans-stmt.c:984)
2011-12-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51605
* parse.c (gfc_fixup_sibling_symbols): Regard FL_LABEL as
local symbol.
2011-12-19 Tobias Burnus <burnus@net-b.de>
PR fortran/51605
* gfortran.dg/block_10.f90: New.
From-SVN: r182497
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index 7d91645..ea1d773 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3908,6 +3908,7 @@ gfc_fixup_sibling_symbols (gfc_symbol *sym, gfc_namespace *siblings) || old_sym->attr.intrinsic || old_sym->attr.generic || old_sym->attr.flavor == FL_NAMELIST + || old_sym->attr.flavor == FL_LABEL || old_sym->attr.proc == PROC_ST_FUNCTION)) { /* Replace it with the symbol from the parent namespace. */ |