diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-12-02 22:09:13 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-12-02 22:09:13 +0000 |
| commit | 471092175dcb1ee2ecae398f897003310f1c2e24 (patch) | |
| tree | 0d780e593e61824612ee7bc6fe37ecef5d4fc38a /gcc | |
| parent | a3f7c896a55c33e369f9bbb210f4b43a345beabe (diff) | |
| download | gcc-471092175dcb1ee2ecae398f897003310f1c2e24.zip gcc-471092175dcb1ee2ecae398f897003310f1c2e24.tar.gz gcc-471092175dcb1ee2ecae398f897003310f1c2e24.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/fortran/simplify.c | 1 |
2 files changed, 5 insertions, 0 deletions
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; } |