[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction segmentation fault

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:10b9b3ee1c1fbe8de7b654e9e2001e7a57fc21a7

commit 10b9b3ee1c1fbe8de7b654e9e2001e7a57fc21a7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Dec 9 16:39:50 2024 +0100

    Correction segmentation fault

Diff:
---
 gcc/fortran/trans-array.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 6dfccf1cc6ba..b94d56110477 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -584,7 +584,7 @@ get_size_info (gfc_typespec &ts)
     case BT_COMPLEX:
     case BT_DERIVED:
     case BT_UNSIGNED:
-      return size_in_bytes (TREE_TYPE (gfc_typenode_for_spec (&ts)));
+      return size_in_bytes (gfc_typenode_for_spec (&ts));
 
     case BT_CHARACTER:
       {