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

[Mikael Morin via Gcc-cvs]

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

commit ce517b914649db33824b9d6a96867505e7912fb9
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;