[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression modifiable_p

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5139aa2b3be938ec6cc2c3efdedd8906b40c1eec

commit 5139aa2b3be938ec6cc2c3efdedd8906b40c1eec
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Dec 18 21:38:06 2024 +0100

    Correction régression modifiable_p

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 c9417300d597..4c237b561aa6 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -934,6 +934,9 @@ modifiable_p (tree data_ref)
 {
   switch (TREE_CODE (data_ref))
     {
+    case INDIRECT_REF:
+      return true;
+
     case CONST_DECL:
       return false;