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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5fcd9bb0d57e56f70c3291b59b54368372c9c69f

commit 5fcd9bb0d57e56f70c3291b59b54368372c9c69f
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 01d9263fb838..7e8b51fbf5a6 100644
--- a/gcc/fortran/trans-openmp.cc
+++ b/gcc/fortran/trans-openmp.cc
@@ -242,7 +242,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)