simplify.c (gfc_convert_char_constant): Free result on error.

2016-12-02  Steven G. Kargl  <kargl@gcc.gnu.org>

	* simplify.c (gfc_convert_char_constant): Free result on error.

From-SVN: r243205

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index b11a99982cff42718f411a4b8f2360ce5e2760c0..68d0559013bf3ca0770ca88969d24f43b0d242c7 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2016-12-02  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       * simplify.c (gfc_convert_char_constant): Free result on error.
+
 2016-12-02  Janus Weil  <janus@gcc.gnu.org>
            Steven G. Kargl  <kargl@gcc.gnu.org>
 

diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c
index 9047c63db69d4dd82668a05b7df57b823dccf67a..a46fbc531e46f8d938b170f5470d07558c1608f5 100644 (file)
--- 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;
          }