From 3fd0f1e054299b8e4a3a3e5b0d049cf595983338 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sun, 25 Nov 2007 23:15:47 +0100 Subject: [PATCH] Forgot trans-expr.c in previous commit: 2007-11-25 Tobias Burnus 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 --- gcc/fortran/trans-expr.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 813e43da2db..e3e98b9c269 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); }