From c16ac98ea9cddb4725dd5c6d010bdeaac14d1a25 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Mon, 8 Oct 2018 09:11:03 +0000 Subject: re PR fortran/86372 (Segfault on ASSOCIATE statement with CHARACTER variable) 2018-10-08 Paul Thomas 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 PR fortran/86372 * gfortran.dg/associate_41.f90: New test. From-SVN: r264915 --- gcc/fortran/trans-stmt.c | 1 - 1 file changed, 1 deletion(-) (limited to 'gcc/fortran') 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) -- cgit v1.1