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

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);
     }