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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:52f328042dd11613135d2807162eda54c98efee0

commit 52f328042dd11613135d2807162eda54c98efee0
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 b2ce42303d76..53ed20ccdc0e 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