[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression pr77973

[Mikael Morin]

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

commit e96480e28293bdca2ab73df0f4ca298c81f8eaf5
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Mon May 5 13:48:49 2025 +0200

    Correction régression pr77973

Diff:
---
 gcc/fortran/trans-openmp.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-openmp.cc b/gcc/fortran/trans-openmp.cc
index 07ed2e1faca3..47353a9a2706 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -248,7 +248,8 @@ gfc_omp_privatize_by_reference (const_tree decl)
 	  || GFC_DECL_GET_SCALAR_ALLOCATABLE (decl)
 	  || GFC_DECL_CRAY_POINTEE (decl)
 	  || GFC_DECL_ASSOCIATE_VAR_P (decl)
-	  || VOID_TYPE_P (TREE_TYPE (TREE_TYPE (decl))))
+	  || VOID_TYPE_P (TREE_TYPE (TREE_TYPE (decl)))
+	  || !TYPE_SIZE_UNIT (TREE_TYPE (TREE_TYPE (decl))))
 	return false;
 
       if (!DECL_ARTIFICIAL (decl)