From: janus Date: Wed, 5 Jan 2011 19:14:56 +0000 (+0000) Subject: 2011-01-05 Janus Weil X-Git-Url: http://git.sourceforge.jp/view?a=commitdiff_plain;h=875672248e3525fa5628b483cfde79a4723abe14;p=pf3gnuchains%2Fgcc-fork.git 2011-01-05 Janus Weil PR fortran/47180 * trans-expr.c (gfc_trans_class_assign): Bugfix for r168524 (make sure 'vtab' is initialized). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168526 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b7f5afe7835..d00b9edb694 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,6 +1,12 @@ 2011-01-05 Janus Weil PR fortran/47180 + * trans-expr.c (gfc_trans_class_assign): Bugfix for r168524 (make sure + 'vtab' is initialized). + +2011-01-05 Janus Weil + + PR fortran/47180 * trans-expr.c (gfc_trans_class_assign): For a polymorphic NULL pointer assignment, set the _vptr component to the declared type. diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index fa58376980d..68eb1aaa5ef 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -6121,7 +6121,7 @@ gfc_trans_class_assign (gfc_expr *expr1, gfc_expr *expr2, gfc_exec_op op) if (expr2->ts.type != BT_CLASS) { /* Insert an additional assignment which sets the '_vptr' field. */ - gfc_symbol *vtab; + gfc_symbol *vtab = NULL; gfc_symtree *st; lhs = gfc_copy_expr (expr1);