From 86daf6d59d37755f3b73a10bb489e53f6c224a8c Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Thu, 20 Oct 2011 17:15:06 +0000 Subject: re PR fortran/50524 (*** glibc detected *** invalid free() pointer on illegal code (r178939)) 2011-10-15 Steven G. Kargl PR fortran/50524 * resolve.c (resolve_ref): Check return value of resolve_substring(). 2011-10-15 Steven G. Kargl PR fortran/50524 * gfortran.dg/substring_integer_index.f90: New test. From-SVN: r180262 --- gcc/fortran/resolve.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gcc/fortran/resolve.c') diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 0d7e030..30f5f55 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4846,7 +4846,8 @@ resolve_ref (gfc_expr *expr) break; case REF_SUBSTRING: - resolve_substring (ref); + if (resolve_substring (ref) == FAILURE) + return FAILURE; break; } -- cgit v1.1