https://gcc.gnu.org/g:df04cf42efbb0f62903326dda44ba166c78020ec
commit df04cf42efbb0f62903326dda44ba166c78020ec
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 5c6e4dacd904..896d27f86eb0 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7186,7 +7186,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:
