diff options
author | Janus Weil <janus@gcc.gnu.org> | 2011-06-16 23:45:26 +0200 |
---|---|---|
committer | Janus Weil <janus@gcc.gnu.org> | 2011-06-16 23:45:26 +0200 |
commit | 67a7c837e95e85c607e55d2b72bfd4da43f0dd16 (patch) | |
tree | 57cf30b4866ac8ab5fa871c4f1849062b8ecc116 /gcc/fortran | |
parent | 45f86e0f6e1b0fdd6676848c7e929a4cbc85cd8f (diff) | |
download | gcc-67a7c837e95e85c607e55d2b72bfd4da43f0dd16.zip gcc-67a7c837e95e85c607e55d2b72bfd4da43f0dd16.tar.gz gcc-67a7c837e95e85c607e55d2b72bfd4da43f0dd16.tar.bz2 |
re PR fortran/49074 ([OOP] Defined assignment w/ CLASS arrays: Incomplete error message)
2011-06-16 Janus Weil <janus@gcc.gnu.org>
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 <janus@gcc.gnu.org>
PR fortran/49074
* gfortran.dg/typebound_assignment_3.f03: New.
From-SVN: r175113
Diffstat (limited to 'gcc/fortran')
-rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/fortran/interface.c | 1 |
2 files changed, 7 insertions, 0 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 8d3b9b9..e042821 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2011-06-16 Janus Weil <janus@gcc.gnu.org> + 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 <janus@gcc.gnu.org> + PR fortran/49417 * module.c (mio_component): Make sure the 'class_ok' attribute is set for use-associated CLASS components. 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; |