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

[Mikael Morin]

https://gcc.gnu.org/g:2af3e2d7e92f9c9b6e2496365c1a34794553ee48

commit 2af3e2d7e92f9c9b6e2496365c1a34794553ee48
Author: Mikael Morin <mikael@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 09c44cf1482f..a14ef8742c72 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1252,9 +1252,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)