diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-02-14 23:17:44 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-02-14 23:17:44 +0100 |
| commit | 01efe923a3e625157653652d13c15836bb3a8c41 (patch) | |
| tree | 3e4ac8864f0b66a11e2e978a6bbb586b774e40ee /gcc/fortran/parse.c | |
| parent | c9e71b36cfef620a506f37e5922f1cf68c7869a8 (diff) | |
| download | gcc-01efe923a3e625157653652d13c15836bb3a8c41.zip gcc-01efe923a3e625157653652d13c15836bb3a8c41.tar.gz gcc-01efe923a3e625157653652d13c15836bb3a8c41.tar.bz2 | |
re PR fortran/47730 ([OOP] ICE on invalid source in connection with SELECT TYPE)
2011-02-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/47730
* parse.c (gfc_build_block_ns): Commit 'block@' symbol.
2011-02-14 Janus Weil <janus@gcc.gnu.org>
PR fortran/47730
* gfortran.dg/select_type_22.f03: New.
From-SVN: r170157
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 b51e12b..7fc3dca 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3154,6 +3154,7 @@ gfc_build_block_ns (gfc_namespace *parent_ns) t = gfc_add_flavor (&my_ns->proc_name->attr, FL_LABEL, my_ns->proc_name->name, NULL); gcc_assert (t == SUCCESS); + gfc_commit_symbol (my_ns->proc_name); } if (parent_ns->proc_name) |