re PR fortran/47180 ([OOP] EXTENDS_TYPE_OF returns the wrong result for…

re PR fortran/47180 ([OOP] EXTENDS_TYPE_OF returns the wrong result for disassociated polymorphic pointers)

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).

From-SVN: r168526

gcc/fortran/ChangeLog

 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.
 

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);