From 15167bbaa59ef9668501a4a224484efa2ff502c9 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Wed, 9 Feb 2011 21:30:20 +0100 Subject: re PR fortran/47463 ([OOP] ICE in gfc_add_component_ref) 2011-02-09 Janus Weil PR fortran/47463 * resolve.c (resolve_typebound_subroutine): Remove erroneous line. 2011-02-09 Janus Weil PR fortran/47463 * gfortran.dg/typebound_assignment_2.f03: New. From-SVN: r169985 --- gcc/fortran/resolve.c | 1 - 1 file changed, 1 deletion(-) (limited to 'gcc/fortran/resolve.c') 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; -- cgit v1.1