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

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 813e43da2db808c9a5932558841fb3b4495d723d..e3e98b9c269d8a1a37337dbdfc398dca0e0d0559 100644 (file)
--- 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);
     }