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

commit d6f5aa3a734f24e88bc531e2b8be7b7b5de00c52
Author: Mikael Morin <[email protected]>
Date:   Tue Sep 30 20:54:24 2025 +0200

    Correction régression c-interop/cf-descriptor-1.f90 etc

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 26a179465451..5dde304bb6ba 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3850,7 +3850,8 @@ classify_array_ref (gfc_se *se, tree array, tree 
ref_base, gfc_expr *expr,
   if (ar && ar->dimen == 0 && ar->codimen != 0)
     return ARS_SCALAR_COARRAY;
 
-  if (get_CFI_desc (NULL, expr, nullptr, ar))
+  if (get_CFI_desc (NULL, expr, nullptr, ar)
+      && !GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (array)))
     return ARS_CFI_PTR_ARITH;
 
   if (is_pointer_array (array)

Reply via email to