From 471092175dcb1ee2ecae398f897003310f1c2e24 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Fri, 2 Dec 2016 22:09:13 +0000 Subject: [PATCH] simplify.c (gfc_convert_char_constant): Free result on error. 2016-12-02 Steven G. Kargl * simplify.c (gfc_convert_char_constant): Free result on error. From-SVN: r243205 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/simplify.c | 1 + 2 files changed, 5 insertions(+) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index b11a999..68d0559 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2016-12-02 Steven G. Kargl + + * simplify.c (gfc_convert_char_constant): Free result on error. + 2016-12-02 Janus Weil Steven G. Kargl diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 9047c63..a46fbc5 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -7152,6 +7152,7 @@ gfc_convert_char_constant (gfc_expr *e, bt type ATTRIBUTE_UNUSED, int kind) "into character kind %d", gfc_print_wide_char (result->value.character.string[i]), &e->where, kind); + gfc_free_expr (result); return &gfc_bad_expr; } -- 2.7.4