From 875672248e3525fa5628b483cfde79a4723abe14 Mon Sep 17 00:00:00 2001 From: janus Date: Wed, 5 Jan 2011 19:14:56 +0000 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-expr.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) 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); -- 2.11.4.GIT