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

This commit is contained in:
Mikael Morin 2025-10-14 20:55:32 +02:00
parent 4bb5dfd2b3
commit 6cda43fa18
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6803,7 +6803,10 @@ gfc_trans_array_bounds (tree type, gfc_symbol * sym, tree * poffset,
tmp = fold_build3_loc (input_location, COND_EXPR,
gfc_array_index_type, cond,
size, gfc_index_zero_node);
gfc_add_modify (pblock, size, tmp);
if (TREE_CODE (size) == VAR_DECL)
gfc_add_modify (pblock, size, tmp);
else
gcc_assert (TREE_CODE (size) == INTEGER_CST);
}
prev_stride = stride;