diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-02-09 21:30:20 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-02-09 21:30:20 +0100 |
| commit | 15167bbaa59ef9668501a4a224484efa2ff502c9 (patch) | |
| tree | 07888b04c02da1ffaa39ecc7200dc38b3270b8ef /gcc/fortran | |
| parent | 282ec48e048c4de1a1d478121ea2db38dcd96ecb (diff) | |
| download | gcc-15167bbaa59ef9668501a4a224484efa2ff502c9.zip gcc-15167bbaa59ef9668501a4a224484efa2ff502c9.tar.gz gcc-15167bbaa59ef9668501a4a224484efa2ff502c9.tar.bz2 | |
re PR fortran/47463 ([OOP] ICE in gfc_add_component_ref)
2011-02-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/47463
* resolve.c (resolve_typebound_subroutine): Remove erroneous line.
2011-02-09 Janus Weil <janus@gcc.gnu.org>
PR fortran/47463
* gfortran.dg/typebound_assignment_2.f03: New.
From-SVN: r169985
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 14ae30f..6475d5e 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,10 @@ 2011-02-09 Janus Weil <janus@gcc.gnu.org> + PR fortran/47463 + * resolve.c (resolve_typebound_subroutine): Remove erroneous line. + +2011-02-09 Janus Weil <janus@gcc.gnu.org> + PR fortran/47637 * trans-decl.c (init_intent_out_dt): Handle CLASS arguments. diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 7f3734e..688967a 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5894,7 +5894,6 @@ resolve_typebound_subroutine (gfc_code *code) name = name ? name : code->expr1->value.function.esym->name; code->expr1->symtree = expr->symtree; code->expr1->ref = gfc_copy_ref (expr->ref); - expr->symtree->n.sym->ts.u.derived = declared; gfc_add_vptr_component (code->expr1); gfc_add_component_ref (code->expr1, name); code->expr1->value.function.esym = NULL; |