diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2011-10-20 17:15:06 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2011-10-20 17:15:06 +0000 |
| commit | 86daf6d59d37755f3b73a10bb489e53f6c224a8c (patch) | |
| tree | 24b43d9599e2005c7fb74d2a3a5d61c16f24c7f6 /gcc/fortran/resolve.c | |
| parent | fc3c9491097e937cbd6d0bc07d15fa39abc590d6 (diff) | |
| download | gcc-86daf6d59d37755f3b73a10bb489e53f6c224a8c.zip gcc-86daf6d59d37755f3b73a10bb489e53f6c224a8c.tar.gz gcc-86daf6d59d37755f3b73a10bb489e53f6c224a8c.tar.bz2 | |
re PR fortran/50524 (*** glibc detected *** invalid free() pointer on illegal code (r178939))
2011-10-15 Steven G. Kargl <kargl@gcc.gcu.org>
PR fortran/50524
* resolve.c (resolve_ref): Check return value of resolve_substring().
2011-10-15 Steven G. Kargl <kargl@gcc.gcu.org>
PR fortran/50524
* gfortran.dg/substring_integer_index.f90: New test.
From-SVN: r180262
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |