[gcc r16-881] OpenMP/C++: Avoid ICE for BIND_EXPR with empty BIND_EXPR_BLOCK [PR120413]

[Tobias Burnus via Gcc-cvs]

https://gcc.gnu.org/g:45b849d05b733a25ec7ce612229084b8f4b86d3d

commit r16-881-g45b849d05b733a25ec7ce612229084b8f4b86d3d
Author: Tobias Burnus <tbur...@baylibre.com>
Date:   Mon May 26 17:58:07 2025 +0200

    OpenMP/C++: Avoid ICE for BIND_EXPR with empty BIND_EXPR_BLOCK [PR120413]
    
            PR c++/120413
    
    gcc/cp/ChangeLog:
    
            * semantics.cc (finish_omp_target_clauses_r): Handle
            BIND_EXPR with empty BIND_EXPR_BLOCK.
    
    gcc/testsuite/ChangeLog:
    
            * g++.dg/gomp/target-4.C: New test.

Diff:
---
 gcc/cp/semantics.cc                  |  8 ++++----
 gcc/testsuite/g++.dg/gomp/target-4.C | 22 ++++++++++++++++++++++
 2 files changed, 26 insertions(+), 4 deletions(-)

diff --git a/gcc/cp/semantics.cc b/gcc/cp/semantics.cc
index 43a0eabfa127..ef4a668a4e4d 100644
--- a/gcc/cp/semantics.cc
+++ b/gcc/cp/semantics.cc
@@ -10565,10 +10565,10 @@ finish_omp_target_clauses_r (tree *tp, int 
*walk_subtrees, void *ptr)
 
   if (TREE_CODE (t) == BIND_EXPR)
     {
-      tree block = BIND_EXPR_BLOCK (t);
-      for (tree var = BLOCK_VARS (block); var; var = DECL_CHAIN (var))
-       if (!data->local_decls.contains (var))
-         data->local_decls.add (var);
+      if (tree block = BIND_EXPR_BLOCK (t))
+       for (tree var = BLOCK_VARS (block); var; var = DECL_CHAIN (var))
+         if (!data->local_decls.contains (var))
+           data->local_decls.add (var);
       return NULL_TREE;
     }
 
diff --git a/gcc/testsuite/g++.dg/gomp/target-4.C 
b/gcc/testsuite/g++.dg/gomp/target-4.C
new file mode 100644
index 000000000000..80fc9dfe9365
--- /dev/null
+++ b/gcc/testsuite/g++.dg/gomp/target-4.C
@@ -0,0 +1,22 @@
+// { dg-do compile { target c++11 } }
+// PR c++/120413
+
+struct S
+{
+  S() {}
+  ~S() {}
+};
+
+struct array
+{
+  S _arr[1];
+};
+
+int main()
+{
+#pragma omp target
+  {
+    array arr{};
+  }
+  return 0;
+}