https://gcc.gnu.org/g:91a764098bac19ae5118944ff641edaccd4d2ce0

commit 91a764098bac19ae5118944ff641edaccd4d2ce0
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 51077cf11656..9308eb2174b4 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