[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression associate_46.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:01e705291e5ef1b2471621270156b530963d2e90

commit 01e705291e5ef1b2471621270156b530963d2e90
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Sep 22 18:56:56 2025 +0200

    Correction régression associate_46.f90

Diff:
---
 gcc/fortran/trans-array.cc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 2c2183b9ebef..fc14c9e1632b 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7316,6 +7316,8 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, 
tree desc, tree offset,
 
   /* Set the target data pointer.  */
   if (TREE_CODE (TREE_TYPE (tmp)) == POINTER_TYPE
+      && (TREE_CODE (TREE_TYPE (tmp)) == ARRAY_TYPE
+         || TREE_CODE (TREE_TYPE (tmp)) == INTEGER_TYPE)
       && TYPE_STRING_FLAG (TREE_TYPE (TREE_TYPE (tmp))))
     offset = fold_convert (gfc_array_dataptr_type (desc), tmp);
   else