git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correction régression associate_47.f90

This commit is contained in:
Mikael Morin 2025-10-17 14:30:54 +02:00
parent ff4cf4b3a0
commit 7c185a3928
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
gcc/fortran/trans-array.cc
View File

@ -11088,14 +11088,19 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo *loop,
tmp = tmpse.expr; tmp = tmpse.expr;
expr2->ts.u.cl->backend_decl = gfc_evaluate_now (tmp, &fblock); expr2->ts.u.cl->backend_decl = gfc_evaluate_now (tmp, &fblock);
} }
tmp = fold_convert (TREE_TYPE (expr1->ts.u.cl->backend_decl), tmp);
} }
if (expr1->ts.u.cl->backend_decl if (expr1->ts.u.cl->backend_decl
&& VAR_P (expr1->ts.u.cl->backend_decl)) && VAR_P (expr1->ts.u.cl->backend_decl))
gfc_add_modify (&fblock, expr1->ts.u.cl->backend_decl, tmp); {
tmp = fold_convert (TREE_TYPE (expr1->ts.u.cl->backend_decl), tmp);
gfc_add_modify (&fblock, expr1->ts.u.cl->backend_decl, tmp);
}
else else
gfc_add_modify (&fblock, lss->info->string_length, tmp); {
tmp = fold_convert (TREE_TYPE (lss->info->string_length), tmp);
gfc_add_modify (&fblock, lss->info->string_length, tmp);
}
if (expr1->ts.kind > 1) if (expr1->ts.kind > 1)
tmp = fold_build2_loc (input_location, MULT_EXPR, tmp = fold_build2_loc (input_location, MULT_EXPR,

3
gcc/fortran/trans-types.cc
View File

@ -3055,9 +3055,6 @@ gfc_get_derived_type (gfc_symbol * derived, int codimen)
gfc_conv_const_charlen (c->ts.u.cl); gfc_conv_const_charlen (c->ts.u.cl);
gcc_assert (c->ts.u.cl->backend_decl); gcc_assert (c->ts.u.cl->backend_decl);
} }
else if (c->ts.type == BT_CHARACTER)
c->ts.u.cl->backend_decl
= build_int_cst (gfc_charlen_type_node, 0);
field_type = gfc_typenode_for_spec (&c->ts, codimen); field_type = gfc_typenode_for_spec (&c->ts, codimen);
} }