[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Correction régression allocatable_length_2.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:1d799d31a73e3dad16342d38ccc14cac8534ebbb

commit 1d799d31a73e3dad16342d38ccc14cac8534ebbb
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Mar 15 21:54:13 2025 +0100

    Correction régression allocatable_length_2.f90

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index d83ae26a7af4..8910c2c35564 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1095,6 +1095,7 @@ struct descr_change_info {
       class modify_info *unknown_info;
       class nullification *nullification_info;
       class init_info *initialization_info;
+      class null_init *null_init_info;
       struct
        {
          class default_init *info;
@@ -1344,6 +1345,8 @@ get_descr_dtype (const descr_change_info &change_info, 
gfc_typespec *ts,
   const init_info *init_info = nullptr;
   if (change_info.type == INITIALISATION)
     init_info = change_info.u.initialization_info;
+  else if (change_info.type == NULL_INITIALISATION)
+    init_info = change_info.u.null_init_info;
   else if (change_info.type == DEFAULT_INITIALISATION)
     init_info = change_info.u.default_init.info;
   else if (change_info.type == SCALAR_VALUE)
@@ -1439,7 +1442,7 @@ get_null_array_descriptor_init (tree type, gfc_typespec 
&ts, int rank,
 {
   null_init ni (ts);
   struct descr_change_info info;
-  info.type = INITIALISATION;
+  info.type = NULL_INITIALISATION;
   info.descriptor_type = type;
   info.u.initialization_info = &ni;