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

commit ef6df121b44e17d631f69ce34271b43432679398
Author: Mikael Morin <[email protected]>
Date:   Thu Oct 15 15:30:22 2026 +0200

    Correction is_contiguous_4

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 0fd036bc8e31..fa571db82fce 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -1120,6 +1120,11 @@ gfc_conv_intrinsic_to_class (gfc_se *parmse, gfc_expr *e,
       && class_ts.u.derived->components->attr.dimension
       && !class_ts.u.derived->components->attr.allocatable
       && !class_ts.u.derived->components->attr.class_pointer
+      && class_ts.u.derived->components->as
+      && !(class_ts.u.derived->components->as->type == AS_ASSUMED_SHAPE
+          || class_ts.u.derived->components->as->type == AS_ASSUMED_RANK
+          || class_ts.u.derived->components->as->type == AS_DEFERRED
+          || class_ts.u.derived->components->as->type == AS_ASSUMED_SIZE)
       && is_subref_array (e))
     parmse->force_tmp = 1;

Reply via email to