From 67a7c837e95e85c607e55d2b72bfd4da43f0dd16 Mon Sep 17 00:00:00 2001 From: Janus Weil Date: Thu, 16 Jun 2011 23:45:26 +0200 Subject: re PR fortran/49074 ([OOP] Defined assignment w/ CLASS arrays: Incomplete error message) 2011-06-16 Janus Weil PR fortran/49074 * interface.c (gfc_extend_assign): Propagate the locus from the assignment to the type-bound procedure call. 2011-06-16 Janus Weil PR fortran/49074 * gfortran.dg/typebound_assignment_3.f03: New. From-SVN: r175113 --- gcc/fortran/interface.c | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/interface.c') diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 46f9d14..e787187 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -3242,6 +3242,7 @@ gfc_extend_assign (gfc_code *c, gfc_namespace *ns) c->expr1 = gfc_get_expr (); build_compcall_for_operator (c->expr1, actual, tb_base, tbo, gname); c->expr1->value.compcall.assign = 1; + c->expr1->where = c->loc; c->expr2 = NULL; c->op = EXEC_COMPCALL; -- cgit v1.1