From: tschwinge <tschwinge@138bc75d-0d04-0410-961f-82ee72b054a4>

        gcc/
        * gimplify.c (omp_notice_variable) <case OMP_CLAUSE_DEFAULT_NONE>:
        Rewrite check for ORT_PARALLEL and ORT_COMBINED_PARALLEL.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@210860 
138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/ChangeLog  | 3 +++
 gcc/gimplify.c | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git gcc/ChangeLog gcc/ChangeLog
index 3d74b6f..397893d 100644
--- gcc/ChangeLog
+++ gcc/ChangeLog
@@ -1,5 +1,8 @@
 2014-05-23  Thomas Schwinge  <tho...@codesourcery.com>
 
+       * gimplify.c (omp_notice_variable) <case OMP_CLAUSE_DEFAULT_NONE>:
+       Rewrite check for ORT_PARALLEL and ORT_COMBINED_PARALLEL.
+
        * omp-low.c (expand_omp_for_static_chunk): Rename variable si to
        gsi, and variables v_* to v*.
 
diff --git gcc/gimplify.c gcc/gimplify.c
index 39b2750..654b05c 100644
--- gcc/gimplify.c
+++ gcc/gimplify.c
@@ -5683,8 +5683,7 @@ omp_notice_variable (struct gimplify_omp_ctx *ctx, tree 
decl, bool in_code)
       switch (default_kind)
        {
        case OMP_CLAUSE_DEFAULT_NONE:
-         if (ctx->region_type == ORT_PARALLEL
-             || ctx->region_type == ORT_COMBINED_PARALLEL)
+         if ((ctx->region_type & ORT_PARALLEL) != 0)
            {
              error ("%qE not specified in enclosing parallel",
                     DECL_NAME (lang_hooks.decls.omp_report_decl (decl)));
-- 
1.9.1

Reply via email to