diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-10-10 23:35:10 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-10-10 23:35:10 +0200 |
| commit | d3735479a3544423fb067c7c6c848159953ba266 (patch) | |
| tree | 9d67983f7531f0beb32aea6ee8612deca1114ace /gcc/fortran/resolve.c | |
| parent | 6ea7f14af8bb3c974c544c6c905a087452b79470 (diff) | |
| download | gcc-d3735479a3544423fb067c7c6c848159953ba266.zip gcc-d3735479a3544423fb067c7c6c848159953ba266.tar.gz gcc-d3735479a3544423fb067c7c6c848159953ba266.tar.bz2 | |
re PR fortran/45961 ([OOP] Problem with polymorphic type-bound operators)
2010-10-10 Janus Weil <janus@gcc.gnu.org>
PR fortran/45961
* resolve.c (resolve_typebound_function): Bugfix for type-bound
operators.
2010-10-10 Janus Weil <janus@gcc.gnu.org>
PR fortran/45961
* gfortran.dg/typebound_operator_6.f03: New.
From-SVN: r165263
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index a5aa62a..4280555 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5736,7 +5736,7 @@ resolve_typebound_function (gfc_expr* e) /* Use the generic name if it is there. */ name = name ? name : e->value.function.esym->name; e->symtree = expr->symtree; - expr->symtree->n.sym->ts.u.derived = declared; + e->ref = gfc_copy_ref (expr->ref); gfc_add_component_ref (e, "$vptr"); gfc_add_component_ref (e, name); e->value.function.esym = NULL; |