From: Steven G. Kargl <kargl@gcc.gnu.org>
Date: Fri, 2 Dec 2016 22:09:13 +0000 (+0000)
Subject: simplify.c (gfc_convert_char_constant): Free result on error.
X-Git-Tag: upstream/12.2.0~42741
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=471092175dcb1ee2ecae398f897003310f1c2e24;p=platform%2Fupstream%2Fgcc.git

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 b11a999..68d0559 100644
--- 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 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;
 	  }