}
nlist = cp_parser_omp_var_list_no_open (parser, OMP_CLAUSE_MAP, list,
- NULL, C_ORT_OMP, true);
+ NULL);
for (c = nlist; c != list; c = OMP_CLAUSE_CHAIN (c))
OMP_CLAUSE_SET_MAP_KIND (c, kind);
if (REFERENCE_REF_P (t)
&& TREE_CODE (TREE_OPERAND (t, 0)) == COMPONENT_REF)
t = TREE_OPERAND (t, 0);
- if ((ort == C_ORT_ACC || ort == C_ORT_OMP)
- && TREE_CODE (t) == FIELD_DECL)
- t = finish_non_static_data_member (t, NULL_TREE, NULL_TREE);
ret = t;
if (TREE_CODE (t) == COMPONENT_REF
&& (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
return error_mark_node;
}
t = TREE_OPERAND (t, 0);
- if ((ort == C_ORT_ACC || ort == C_ORT_OMP)
- && TREE_CODE (t) == INDIRECT_REF)
- {
- t = TREE_OPERAND (t, 0);
- STRIP_NOPS (t);
- }
+ if (ort == C_ORT_ACC && TREE_CODE (t) == INDIRECT_REF)
+ t = TREE_OPERAND (t, 0);
}
if (REFERENCE_REF_P (t))
t = TREE_OPERAND (t, 0);
return error_mark_node;
}
else if (ort == C_ORT_OMP
- && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_MAP
- && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_TO
- && OMP_CLAUSE_CODE (c) != OMP_CLAUSE_FROM
&& TREE_CODE (t) == PARM_DECL
&& DECL_ARTIFICIAL (t)
&& DECL_NAME (t) == this_identifier)
t = TREE_OPERAND (t, 0);
if (REFERENCE_REF_P (t))
t = TREE_OPERAND (t, 0);
- if (TREE_CODE (t) == INDIRECT_REF)
- {
- t = TREE_OPERAND (t, 0);
- STRIP_NOPS (t);
- }
if (OMP_CLAUSE_CODE (c) == OMP_CLAUSE_MAP
&& OMP_CLAUSE_MAP_IMPLICIT (c)
&& (bitmap_bit_p (&map_head, DECL_UID (t))
goto handle_map_references;
}
}
- if ((ort == C_ORT_ACC || ort == C_ORT_OMP)
- && !processing_template_decl
- && TREE_CODE (t) == FIELD_DECL)
- {
- OMP_CLAUSE_DECL (c) = finish_non_static_data_member (t, NULL_TREE,
- NULL_TREE);
- break;
- }
if (!VAR_P (t) && TREE_CODE (t) != PARM_DECL)
{
if (processing_template_decl && TREE_CODE (t) != OVERLOAD)
omp_clause_code_name[OMP_CLAUSE_CODE (c)]);
remove = true;
}
- else if (ort != C_ORT_ACC
- && ort != C_ORT_OMP
- && t == current_class_ptr)
+ else if (ort != C_ORT_ACC && t == current_class_ptr)
{
error_at (OMP_CLAUSE_LOCATION (c),
"%<this%> allowed in OpenMP only in %<declare simd%>"
+++ /dev/null
-// { dg-do compile }
-// { dg-options "-fopenmp -fdump-tree-gimple" }
-
-struct S
-{
- int a, b;
- void bar (int);
-};
-
-void
-S::bar (int x)
-{
- #pragma omp target map (alloc: a, b)
- ;
- #pragma omp target enter data map (alloc: a, b)
-}
-
-template <int N>
-struct T
-{
- int a, b;
- void bar (int);
-};
-
-template <int N>
-void
-T<N>::bar (int x)
-{
- #pragma omp target map (alloc: a, b)
- ;
- #pragma omp target enter data map (alloc: a, b)
-}
-
-template struct T<0>;
-
-/* { dg-final { scan-tree-dump-times "map\\(alloc:this->b \\\[len: \[0-9\]+\\\]\\) map\\(alloc:this->a \\\[len: \[0-9\]+\\\]\\)" 4 "gimple" } } */
void
S::bar (int x)
{
- #pragma omp target map (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
+ #pragma omp target map (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
;
- #pragma omp target map (this[0], x)
+ #pragma omp target map (this[0], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
;
- #pragma omp target update to (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
- #pragma omp target update to (this[0], x)
- #pragma omp target update from (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
- #pragma omp target update from (this[1], x)
+ #pragma omp target update to (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update to (this[0], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update from (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update from (this[1], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
}
template <int N>
void
T<N>::bar (int x)
{
- #pragma omp target map (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
+ #pragma omp target map (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
;
- #pragma omp target map (this[0], x)
+ #pragma omp target map (this[0], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
;
- #pragma omp target update to (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
- #pragma omp target update to (this[0], x)
- #pragma omp target update from (this, x) // { dg-error "cannot take the address of .this., which is an rvalue expression" }
- #pragma omp target update from (this[1], x)
+ #pragma omp target update to (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update to (this[0], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update from (this, x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
+ #pragma omp target update from (this[1], x) // { dg-error ".this. allowed in OpenMP only in .declare simd. clauses" }
}
template struct T<0>;