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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:92b9dd84766ecedf92c3075a307af11e789997ed

commit 92b9dd84766ecedf92c3075a307af11e789997ed
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 75a41a38ea12..05fb9c3119d7 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7465,7 +7465,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;