[Bug fortran/50524] *** glibc detected *** invalid free() pointer on illegal code (r178939)

[kargl at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=50524

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org 2011-09-26 16:45:25 UTC ---
Here's a patch.

Index: resolve.c
===================================================================
--- resolve.c    (revision 179023)
+++ resolve.c    (working copy)
@@ -4836,7 +4837,8 @@ resolve_ref (gfc_expr *expr)
     break;

       case REF_SUBSTRING:
-    resolve_substring (ref);
+    if (resolve_substring (ref) == FAILURE)
+      return FAILURE;
     break;
       }