diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-06 17:58:11 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-11-06 17:58:11 +0000 |
| commit | 14262ad79ba468d2b7764640428fde7d0c0684b0 (patch) | |
| tree | 6362ab383813bea88ec943773205746c0350ca50 /gcc/fortran | |
| parent | cb274b8f30263f8af2e46d628381ac99d9ca7b6c (diff) | |
| download | ppe42-gcc-14262ad79ba468d2b7764640428fde7d0c0684b0.tar.gz ppe42-gcc-14262ad79ba468d2b7764640428fde7d0c0684b0.zip | |
2010-11-06 Janus Weil <janus@gcc.gnu.org>
PR fortran/46330
* trans-expr.c (gfc_trans_class_assign): Find 'vtab' symbol in correct
namespace.
2010-11-06 Janus Weil <janus@gcc.gnu.org>
PR fortran/46330
* gfortran.dg/class_27.f03: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@166405 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index cace0a310f1..92be4299355 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2010-11-06 Janus Weil <janus@gcc.gnu.org> + + PR fortran/46330 + * trans-expr.c (gfc_trans_class_assign): Find 'vtab' symbol in correct + namespace. + 2010-11-05 Janus Weil <janus@gcc.gnu.org> PR fortran/45451 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 8da6cf0ef13..a95b421170a 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -5925,7 +5925,7 @@ gfc_trans_class_assign (gfc_expr *expr1, gfc_expr *expr2, gfc_exec_op op) gcc_assert (vtab); rhs = gfc_get_expr (); rhs->expr_type = EXPR_VARIABLE; - gfc_find_sym_tree (vtab->name, NULL, 1, &st); + gfc_find_sym_tree (vtab->name, vtab->ns, 1, &st); rhs->symtree = st; rhs->ts = vtab->ts; } |
