diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-09-02 12:11:39 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-09-02 12:11:39 +0200 |
| commit | 86e6a239c4226f1469e7eefc8b917375ae5dd62c (patch) | |
| tree | d1872a63f899f7cd461f400b2798d6e7839b642b /gcc/fortran/resolve.c | |
| parent | cfc20f00b63a9371784f0de6b70b4598adbca7de (diff) | |
| download | gcc-86e6a239c4226f1469e7eefc8b917375ae5dd62c.zip gcc-86e6a239c4226f1469e7eefc8b917375ae5dd62c.tar.gz gcc-86e6a239c4226f1469e7eefc8b917375ae5dd62c.tar.bz2 | |
re PR fortran/45489 (Default initialization of derived-type function result missing)
2010-09-02 Tobias Burnus <burnus@net-b.de>
PR fortran/45489
* resolve.c (apply_default_init): Mark symbol as referenced,
if it is initialized.
(resolve_symbol): Change intialized check for BT_DERIVED such
that also function results get initialized; remove now obsolete
gfc_set_sym_referenced for BT_CLASS.
2010-09-02 Tobias Burnus <burnus@net-b.de>
PR fortran/45489
* gfortran.dg/initialization_27.f90: New.
From-SVN: r163767
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index b6980a6..26175e4 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9476,6 +9476,7 @@ apply_default_init (gfc_symbol *sym) return; build_init_assign (sym, init); + sym->attr.referenced = 1; } /* Build an initializer for a local integer, real, complex, logical, or @@ -12148,7 +12149,6 @@ resolve_symbol (gfc_symbol *sym) described in 14.7.5, to those variables that have not already been assigned one. */ if (sym->ts.type == BT_DERIVED - && sym->attr.referenced && sym->ns == gfc_current_ns && !sym->value && !sym->attr.allocatable @@ -12158,6 +12158,7 @@ resolve_symbol (gfc_symbol *sym) if ((!a->save && !a->dummy && !a->pointer && !a->in_common && !a->use_assoc + && (a->referenced || a->result) && !(a->function && sym != sym->result)) || (a->dummy && a->intent == INTENT_OUT && !a->pointer)) apply_default_init (sym); @@ -12166,10 +12167,7 @@ resolve_symbol (gfc_symbol *sym) if (sym->ts.type == BT_CLASS && sym->ns == gfc_current_ns && sym->attr.dummy && sym->attr.intent == INTENT_OUT && !sym->attr.pointer && !sym->attr.allocatable) - { - apply_default_init (sym); - gfc_set_sym_referenced (sym); - } + apply_default_init (sym); /* If this symbol has a type-spec, check it. */ if (sym->attr.flavor == FL_VARIABLE || sym->attr.flavor == FL_PARAMETER |