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

commit bdab6e4afdd66a59b356c7d3c00285e4b18db7a9
Author: Mikael Morin <[email protected]>
Date:   Sun Oct 12 17:51:30 2025 +0200

    Correction partielle coindexed_1.f90

Diff:
---
 gcc/fortran/trans-types.cc | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 8005b3f17b7e..9e8f2701b24f 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -2425,7 +2425,11 @@ contiguous_attr (const symbol_attribute & attr)
 static bool
 is_contiguous (gfc_symbol *sym)
 {
-  if (contiguous_attr (gfc_symbol_attr (sym)))
+  symbol_attribute sym_attr = gfc_symbol_attr (sym);
+  if (sym_attr.pointer)
+    return false;
+
+  if (contiguous_attr (sym_attr))
     return true;
 
   if (!(sym->assoc

Reply via email to