diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-06 19:07:52 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-06 19:07:52 +0100 |
| commit | cddcf0d4aeef26fad7185ec9ba79adc23f78739c (patch) | |
| tree | 23e732adc566fc2363414dd1082478914fb933d0 /gcc/fortran/resolve.c | |
| parent | 2c460d129131c95fc7b72e3600ab532a375562fa (diff) | |
| download | gcc-cddcf0d4aeef26fad7185ec9ba79adc23f78739c.zip gcc-cddcf0d4aeef26fad7185ec9ba79adc23f78739c.tar.gz gcc-cddcf0d4aeef26fad7185ec9ba79adc23f78739c.tar.bz2 | |
re PR fortran/34655 (5.5.2.5)
2008-01-06 Tobias Burnus <burnus@net-b.de>
PR fortran/34655
* resolve.c (resolve_equivalence_derived): Reject derived types
* with
default initialization if equivalenced with COMMON variable.
2008-01-06 Tobias Burnus <burnus@net-b.de>
PR fortran/34655
* gfortran.dg/equiv_constraint_9.f90: New.
From-SVN: r131353
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 8 |
1 files changed, 8 insertions, 0 deletions
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; |