From 6c25f7962556e2217d5070720ac879c40063209a Mon Sep 17 00:00:00 2001 From: Andre Vehreschild Date: Mon, 16 Mar 2015 11:29:59 +0100 Subject: resolve.c: Prevent segfault on illegal input. gcc/fortran/ChangeLog: 2015-03-16 Andre Vehreschild * resolve.c: Prevent segfault on illegal input. gcc/testsuite/ChangeLog: 2015-03-16 Andre Vehreschild * gfortran.dg/pointer_2.f90: New test. From-SVN: r221455 --- gcc/fortran/resolve.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 942a9ad..465cf2b 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2639,6 +2639,10 @@ found: expr->ts = sym->ts; expr->value.function.name = sym->name; expr->value.function.esym = sym; + /* Prevent crash when sym->ts.u.derived->components is not set due to previous + error(s). */ + if (sym->ts.type == BT_CLASS && !CLASS_DATA (sym)) + return MATCH_ERROR; if (sym->ts.type == BT_CLASS && CLASS_DATA (sym)->as) expr->rank = CLASS_DATA (sym)->as->rank; else if (sym->as != NULL) -- cgit v1.1