[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression type_to_class_4.f03

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9ce1a76b942d16b6b9bd3fcc0f34ca3fa64bcb24

commit 9ce1a76b942d16b6b9bd3fcc0f34ca3fa64bcb24
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Oct 3 16:46:11 2025 +0200

    Correction régression type_to_class_4.f03

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 2123b48bbb9f..85fba251d264 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3862,6 +3862,9 @@ 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 (GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (array)))
+    return ARS_BYTES_STRIDED_PTR_ARITH;
+
   if (get_CFI_desc (NULL, expr, nullptr, ar)
       && !GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (array)))
     return ARS_CFI_PTR_ARITH;