[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction partielle unlimited_polymorphic_17.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:2fa070e1d8d02354b99ab83c7efc7575a8ca92dc

commit 2fa070e1d8d02354b99ab83c7efc7575a8ca92dc
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Sep 23 19:25:38 2025 +0200

    Correction partielle unlimited_polymorphic_17.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 3c6d9421fefe..11f950aa9b90 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3776,6 +3776,9 @@ non_negative_strides_array_p (tree expr)
   if (!GFC_ARRAY_TYPE_P (type))
     return false;
 
+  if (INDIRECT_REF_P (expr))
+    expr = TREE_OPERAND (expr, 0);
+
   /* If the array was originally a dummy with a descriptor, strides can be
      negative.  */
   if (DECL_P (expr)