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

[Mikael Morin via Gcc-cvs]

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

commit cc2623bb8af53eed5cbae9e13593464078b8b33c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Mar 16 20:16:11 2025 +0100

    Correction régression sizeof_4.f90

Diff:
---
 gcc/fortran/trans-descriptor.cc | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index e3fdacf94d5e..5a48a7cce72b 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1239,9 +1239,9 @@ get_descr_element_length (const descr_change_info 
&change_info,
 {
   if (change_info.type == UNKNOWN_CHANGE
       || change_info.type == EXPLICIT_NULLIFICATION
-      || !ts
-      || ts->type == BT_CLASS
-      || (ts->type == BT_CHARACTER && ts->deferred))
+      || (ts
+         && (ts->type == BT_CLASS
+             || (ts->type == BT_CHARACTER && ts->deferred))))
     return NULL_TREE;
 
   if (change_info.type == SCALAR_VALUE)