diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2007-11-25 23:15:47 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-11-25 23:15:47 +0100 |
| commit | 3fd0f1e054299b8e4a3a3e5b0d049cf595983338 (patch) | |
| tree | 8e2e6f61e8cceab5d50e3cd7e7445fa01dea1092 /gcc | |
| parent | 3e9bc1ea66959ff20289ad43095c634b9e8c2378 (diff) | |
| download | gcc-3fd0f1e054299b8e4a3a3e5b0d049cf595983338.zip gcc-3fd0f1e054299b8e4a3a3e5b0d049cf595983338.tar.gz gcc-3fd0f1e054299b8e4a3a3e5b0d049cf595983338.tar.bz2 | |
Forgot trans-expr.c in previous commit:
2007-11-25 Tobias Burnus <burnus@net-b.de>
PR fortran/34079
* trans-types.c (gfc_return_by_reference,
gfc_get_function_type): Do not return result of
character-returning bind(C) functions as argument.
* trans-expr.c (gfc_conv_function_call): Ditto.
From-SVN: r130417
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 813e43d..e3e98b9 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2591,7 +2591,7 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, { gcc_assert (sym->ts.cl->length && sym->ts.cl->length->expr_type == EXPR_CONSTANT - && mpz_cmp_si (sym->ts.cl->length->value.integer, 1)); + && mpz_cmp_si (sym->ts.cl->length->value.integer, 1) == 0); se->string_length = build_int_cst (gfc_charlen_type_node, 1); } |