procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Forgot trans-expr.c in previous commit:

Browse source 
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
This commit is contained in:
Tobias Burnus 2007-11-25 23:15:47 +01:00
parent 3e9bc1ea66
commit 3fd0f1e054
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gcc/fortran/trans-expr.c
View file

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