Correction partielle class_dummy_7.f90

This commit is contained in:
Mikael Morin 2025-10-10 22:06:52 +02:00
parent 705fbe2d25
commit 8b51fe961e
1 changed files with 3 additions and 2 deletions

View File

@ -949,10 +949,11 @@ find_mem_ref_replacement (tree * repl, unsigned * offset, simul_scope & context,
tree var_ref = ptr_target.get_variable ();
tree var_type = TREE_TYPE (var_ref);
if (var_type == access_type)
if (var_type == access_type
&& *offset == 0
&& ptr_address->offset == 0)
{
*repl = var_ref;
gcc_assert (*offset == 0 && ptr_address->offset == 0);
return true;
}
else