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

This commit is contained in:
Mikael Morin 2025-10-16 15:27:15 +02:00
parent b5de7ff49e
commit 35f16be313
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3101,6 +3101,7 @@ gfc_set_descriptor_for_assign_realloc (stmtblock_t *block, gfc_loopinfo *loop,
tree tmp = gfc_get_dtype_rank_type (expr1->rank, type,
bytes_counted_strides);
gfc_conv_descriptor_dtype_set (block, desc, tmp);
gfc_conv_descriptor_elem_len_set (block, desc, elemsize2);
}
else if (expr1->ts.type == BT_CLASS)
{

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

@ -57,7 +57,8 @@ gfc_get_character_len (tree type)
&& TYPE_STRING_FLAG (type));
len = TYPE_MAX_VALUE (TYPE_DOMAIN (type));
len = (len) ? (len) : (integer_zero_node);
if (!len)
return NULL_TREE;
return fold_convert (gfc_charlen_type_node, len);
}