From: Janus Weil <janus@gcc.gnu.org>
Date: Wed, 5 Jan 2011 19:14:56 +0000 (+0100)
Subject: re PR fortran/47180 ([OOP] EXTENDS_TYPE_OF returns the wrong result for disassociated... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a29f38ce0775faee6c2bfa8bf3ef110d32215cb5;p=gcc.git

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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b7f5afe7835..d00b9edb694 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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
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);