From 51a025fb2e82db52e624cb01e8d46e80acfa593e Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 24 Nov 2018 09:07:23 +0000 Subject: 2018-11-24 Paul Thomas PR fortran/888143 * resolve.c (resolve_variable): Check for associate names with NULL target. 2018-11-24 Paul Thomas PR fortran/888143 * gfortran.dg/associate_46.f90: New test. From-SVN: r266427 --- gcc/fortran/resolve.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index df7c6cb..b209021 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -5410,7 +5410,7 @@ resolve_variable (gfc_expr *e) the ts' type of the component refs is still array valued, which can't be translated that way. */ if (sym->assoc && e->rank == 0 && e->ref && sym->ts.type == BT_CLASS - && sym->assoc->target->ts.type == BT_CLASS + && sym->assoc->target && sym->assoc->target->ts.type == BT_CLASS && CLASS_DATA (sym->assoc->target)->as) { gfc_ref *ref = e->ref; -- cgit v1.1