From cddcf0d4aeef26fad7185ec9ba79adc23f78739c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 6 Jan 2008 19:07:52 +0100 Subject: re PR fortran/34655 (5.5.2.5) 2008-01-06 Tobias Burnus PR fortran/34655 * resolve.c (resolve_equivalence_derived): Reject derived types * with default initialization if equivalenced with COMMON variable. 2008-01-06 Tobias Burnus PR fortran/34655 * gfortran.dg/equiv_constraint_9.f90: New. From-SVN: r131353 --- gcc/fortran/resolve.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index e4f7dcb..6cde79f 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -8534,6 +8534,14 @@ resolve_equivalence_derived (gfc_symbol *derived, gfc_symbol *sym, gfc_expr *e) return FAILURE; } + if (sym->attr.in_common && has_default_initializer (sym->ts.derived)) + { + gfc_error ("Derived type variable '%s' at %L with default " + "initialization cannot be in EQUIVALENCE with a variable " + "in COMMON", sym->name, &e->where); + return FAILURE; + } + for (; c ; c = c->next) { d = c->ts.derived; -- cgit v1.1