2011-01-05 Janus Weil <janus@gcc.gnu.org>

	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 b7f5afe..d00b9ed 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,6 +1,12 @@
 2011-01-05  Janus Weil  <janus@gcc.gnu.org>
 
        PR fortran/47180
+       * trans-expr.c (gfc_trans_class_assign): Bugfix for r168524 (make sure
+       'vtab' is initialized).
+
+2011-01-05  Janus Weil  <janus@gcc.gnu.org>
+
+       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 fa58376..68eb1aa 100644 (file)
--- 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);