From: Thomas Schwinge <thomas@codesourcery.com>
Date: Thu, 20 May 2021 13:22:24 +0000 (+0200)
Subject: [OpenACC privatization] Don't evaluate OpenMP 'for' clauses [PR90115]
X-Git-Tag: basepoints/gcc-13~7331
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=3a285ebd0cf5ab762726018515d23280fa6dd445;p=thirdparty%2Fgcc.git

[OpenACC privatization] Don't evaluate OpenMP 'for' clauses [PR90115]

	gcc/
	PR middle-end/90115
	* omp-low.c (lower_omp_for): Don't evaluate OpenMP 'for' clauses.
---

diff --git a/gcc/omp-low.c b/gcc/omp-low.c
index da827ef2e347..a86c6c1e82c7 100644
--- a/gcc/omp-low.c
+++ b/gcc/omp-low.c
@@ -11067,7 +11067,8 @@ lower_omp_for (gimple_stmt_iterator *gsi_p, omp_context *ctx)
 
   push_gimplify_context ();
 
-  oacc_privatization_scan_clause_chain (ctx, gimple_omp_for_clauses (stmt));
+  if (is_gimple_omp_oacc (ctx->stmt))
+    oacc_privatization_scan_clause_chain (ctx, gimple_omp_for_clauses (stmt));
 
   lower_omp (gimple_omp_for_pre_body_ptr (stmt), ctx);