[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pointer_array_5

[Mikael Morin]

https://gcc.gnu.org/g:a44cc84b970907a7c46e300d90f03eac3ee92384

commit a44cc84b970907a7c46e300d90f03eac3ee92384
Author: Mikael Morin <mikael@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: