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 char_length_23.f90

This commit is contained in:
Mikael Morin 2025-10-17 15:00:55 +02:00
parent dc8af1a7b2
commit 393713f9c0
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6262,6 +6262,7 @@ gfc_array_allocate (gfc_se * se, gfc_expr * expr, tree status, tree errmsg,
if (expr->ts.type == BT_CHARACTER if (expr->ts.type == BT_CHARACTER
&& TREE_CODE (se->string_length) == COMPONENT_REF && TREE_CODE (se->string_length) == COMPONENT_REF
&& expr->ts.u.cl->backend_decl
&& expr->ts.u.cl->backend_decl != se->string_length && expr->ts.u.cl->backend_decl != se->string_length
&& VAR_P (expr->ts.u.cl->backend_decl)) && VAR_P (expr->ts.u.cl->backend_decl))
gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl, gfc_add_modify (&se->pre, expr->ts.u.cl->backend_decl,

1
gcc/fortran/trans-descriptor.cc
View File

@ -3329,6 +3329,7 @@ gfc_descriptor_init_count (tree descriptor, int rank, int corank,
it initialized. */ it initialized. */
if (expr->ts.type == BT_CHARACTER if (expr->ts.type == BT_CHARACTER
&& expr->ts.deferred && expr->ts.deferred
&& expr->ts.u.cl->backend_decl
&& VAR_P (expr->ts.u.cl->backend_decl)) && VAR_P (expr->ts.u.cl->backend_decl))
{ {
tree dtype; tree dtype;