diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2018-10-08 09:11:03 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2018-10-08 09:11:03 +0000 |
| commit | c16ac98ea9cddb4725dd5c6d010bdeaac14d1a25 (patch) | |
| tree | c41120f5224f3a10a68aed3140ae1ffa65488929 /gcc/fortran/trans-stmt.c | |
| parent | a52cdecf114f4f1e5acbdeeb28b9381875a4b9a8 (diff) | |
| download | gcc-c16ac98ea9cddb4725dd5c6d010bdeaac14d1a25.zip gcc-c16ac98ea9cddb4725dd5c6d010bdeaac14d1a25.tar.gz gcc-c16ac98ea9cddb4725dd5c6d010bdeaac14d1a25.tar.bz2 | |
re PR fortran/86372 (Segfault on ASSOCIATE statement with CHARACTER variable)
2018-10-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86372
* trans-stmt.c (trans_associate_var): Character associate names
with variable string length do not have to be deferred length
for the string length to be set, if variable.
2018-10-08 Paul Thomas <pault@gcc.gnu.org>
PR fortran/86372
* gfortran.dg/associate_41.f90: New test.
From-SVN: r264915
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index ef9e519..6256e3f 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1885,7 +1885,6 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) } if (sym->ts.type == BT_CHARACTER - && sym->ts.deferred && !sym->attr.select_type_temporary && VAR_P (sym->ts.u.cl->backend_decl) && se.string_length != sym->ts.u.cl->backend_decl) |