diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-01-07 12:08:21 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-01-07 12:08:21 +0000 |
| commit | e47d6ba50ad9bf72b16298dd51499eea7ada6e2a (patch) | |
| tree | 023ebc065d893b6ac71d6d6906442cf961c2e194 /gcc/fortran/symbol.c | |
| parent | 98e9a2ed325898294c02b3cec2d0c0a024c2af49 (diff) | |
| download | gcc-e47d6ba50ad9bf72b16298dd51499eea7ada6e2a.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@168565 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 283bfce796b..998eac9b3df 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -2245,35 +2245,6 @@ done: } -/*******A helper function for creating new expressions*************/ - - -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; -} - - /************** Symbol table management subroutines ****************/ /* Basic details: Fortran 95 requires a potentially unlimited number |