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

[Mikael Morin via Gcc-cvs]

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

commit e96480e28293bdca2ab73df0f4ca298c81f8eaf5
Author: Mikael Morin <mik...@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)