diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-01-07 13:08:21 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-01-07 13:08:21 +0100 |
| commit | 0d87fa8ca8f0ccf7184e7606d60693530d0c4a13 (patch) | |
| tree | 023ebc065d893b6ac71d6d6906442cf961c2e194 /gcc/fortran/expr.c | |
| parent | a14e516339b8d3b5a3a35ec1c6e33e74019bb576 (diff) | |
| download | gcc-0d87fa8ca8f0ccf7184e7606d60693530d0c4a13.zip gcc-0d87fa8ca8f0ccf7184e7606d60693530d0c4a13.tar.gz gcc-0d87fa8ca8f0ccf7184e7606d60693530d0c4a13.tar.bz2 | |
re PR fortran/47189 ([OOP] calling STORAGE_SIZE on a NULL-initialized class pointer)
2011-01-07 Janus Weil <janus@gcc.gnu.org>
PR fortran/47189
PR fortran/47194
* gfortran.h (gfc_lval_expr_from_sym): Moved prototype.
* class.c (gfc_class_null_initializer): Initialize _vptr to declared
type.
* expr.c (gfc_lval_expr_from_sym): Moved here from symbol.c.
* resolve.c (resolve_deallocate_expr): _data component will be added
at translation stage.
* symbol.c (gfc_lval_expr_from_sym): Moved to expr.c.
* trans-stmt.c (gfc_trans_deallocate): Reset _vptr to declared type.
2011-01-07 Janus Weil <janus@gcc.gnu.org>
PR fortran/47189
PR fortran/47194
* gfortran.dg/storage_size_3.f08: Extended.
From-SVN: r168565
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index a222ff2..e331b5b 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -3707,6 +3707,32 @@ gfc_get_variable_expr (gfc_symtree *var) } +gfc_expr * +gfc_lval_expr_from_sym (gfc_symbol *sym) +{ + gfc_expr *lval; + lval = gfc_get_expr (); + lval->expr_type = EXPR_VARIABLE; + lval->where = sym->declared_at; + lval->ts = sym->ts; + lval->symtree = gfc_find_symtree (sym->ns->sym_root, sym->name); + + /* It will always be a full array. */ + lval->rank = sym->as ? sym->as->rank : 0; + if (lval->rank) + { + lval->ref = gfc_get_ref (); + lval->ref->type = REF_ARRAY; + lval->ref->u.ar.type = AR_FULL; + lval->ref->u.ar.dimen = lval->rank; + lval->ref->u.ar.where = sym->declared_at; + lval->ref->u.ar.as = sym->as; + } + + return lval; +} + + /* Returns the array_spec of a full array expression. A NULL is returned otherwise. */ gfc_array_spec * |