diff options
Diffstat (limited to 'gcc/fortran/trans-const.c')
| -rw-r--r-- | gcc/fortran/trans-const.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-const.c b/gcc/fortran/trans-const.c index 3d8d4ef..30739d8 100644 --- a/gcc/fortran/trans-const.c +++ b/gcc/fortran/trans-const.c @@ -102,7 +102,7 @@ gfc_build_wide_string_const (int kind, int length, const gfc_char_t *string) gfc_encode_character (kind, length, string, (unsigned char *) s, size); str = build_string (size, s); - gfc_free (s); + free (s); len = build_int_cst (NULL_TREE, length); TREE_TYPE (str) = @@ -164,7 +164,7 @@ gfc_conv_string_init (tree length, gfc_expr * expr) str = gfc_build_wide_string_const (expr->ts.kind, len, s); if (free_s) - gfc_free (s); + free (s); return str; } |