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/fortran/simplify.c | |
| 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/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 1 |
1 files changed, 1 insertions, 0 deletions
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; } |