diff options
| author | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-21 09:06:57 +0000 |
|---|---|---|
| committer | janus <janus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-21 09:06:57 +0000 |
| commit | e8393d495a7b1365ec8a7e88a3371c898289425a (patch) | |
| tree | 1b9dc5c56919f62925c5e6055abd1a153bdf2466 /gcc/fortran/symbol.c | |
| parent | 90af79f40b0a92d0ff83fd000c8ff3a1d348eba9 (diff) | |
| download | gcc-e8393d495a7b1365ec8a7e88a3371c898289425a.tar.gz | |
2014-02-21 Janus Weil <janus@gcc.gnu.org>
PR fortran/60234
* gfortran.h (gfc_build_class_symbol): Removed argument.
* class.c (gfc_add_component_ref): Fix up missing vtype if necessary.
(gfc_build_class_symbol): Remove argument 'delayed_vtab'. vtab is always
delayed now, except for unlimited polymorphics.
(comp_is_finalizable): Procedure pointer components are not finalizable.
* decl. (build_sym, build_struct, attr_decl1): Removed argument of
'gfc_build_class_symbol'.
* match.c (copy_ts_from_selector_to_associate, select_type_set_tmp):
Ditto.
* symbol.c (gfc_set_default_type): Ditto.
2014-02-21 Janus Weil <janus@gcc.gnu.org>
PR fortran/60234
* gfortran.dg/finalize_23.f90: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@207986 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index dad7b3368a8..66668720b7b 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -262,7 +262,7 @@ gfc_set_default_type (gfc_symbol *sym, int error_flag, gfc_namespace *ns) if (ts->type == BT_CHARACTER && ts->u.cl) sym->ts.u.cl = gfc_new_charlen (sym->ns, ts->u.cl); else if (ts->type == BT_CLASS - && !gfc_build_class_symbol (&sym->ts, &sym->attr, &sym->as, false)) + && !gfc_build_class_symbol (&sym->ts, &sym->attr, &sym->as)) return false; if (sym->attr.is_bind_c == 1 && gfc_option.warn_c_binding_type) |