https://gcc.gnu.org/g:e5e42dae1cc1ee5001e62f2826730d56240662e3
commit e5e42dae1cc1ee5001e62f2826730d56240662e3
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Tue May 20 17:18:38 2025 +0200
Correction régression pointer_array_5
Diff:
---
gcc/fortran/trans-array.cc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index d8d7aa9b97c1..9a20f3a73583 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7067,7 +7067,7 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm,
tree desc, tree offset,
}
/* Apply the index to obtain the array element. */
- tmp = gfc_build_array_ref (tmp, index, true);
+ tmp = gfc_build_array_ref (tmp, index, true, gfc_index_zero_node);
break;
case REF_INQUIRY:
