diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-01-05 20:14:56 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-01-05 20:14:56 +0100 |
| commit | a29f38ce0775faee6c2bfa8bf3ef110d32215cb5 (patch) | |
| tree | df7602ef2396a4450fc5032e0bd50079c290c4fb | |
| parent | dc242c4a72ce443301a7546404c1c67c22225a24 (diff) | |
| download | gcc-a29f38ce0775faee6c2bfa8bf3ef110d32215cb5.zip gcc-a29f38ce0775faee6c2bfa8bf3ef110d32215cb5.tar.gz gcc-a29f38ce0775faee6c2bfa8bf3ef110d32215cb5.tar.bz2 | |
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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b7f5afe..d00b9ed 100644 --- 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 --- 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); |