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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:83b3443c8351c48327dc24ad5285af5f7c0018b6

commit 83b3443c8351c48327dc24ad5285af5f7c0018b6
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 8d20abbe0304..2d0338c0dc5c 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;