[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction class_result_10.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:4bd037871f3981246e94c5642f9adf2e848e72b6

commit 4bd037871f3981246e94c5642f9adf2e848e72b6
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Feb 14 18:48:22 2025 +0100

    Correction class_result_10.f90

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 7345b8c98e80..76ed869d6f8b 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7445,7 +7445,8 @@ done:
              int dim = ss->dim[n];
 
              info->start[dim]  = gfc_index_zero_node;
-             info->end[dim]    = gfc_index_zero_node;
+             if (ss_info->type != GFC_SS_FUNCTION)
+               info->end[dim]    = gfc_index_zero_node;
              info->stride[dim] = gfc_index_one_node;
            }
          break;