case PRAGMA_OMP_REQUIRES:
c_parser_omp_requires (parser);
- return false;
+ return false;
case PRAGMA_OMP_ORDERED:
return c_parser_omp_ordered (parser, context, if_p);
OpenMP 5.0:
depend ( depend-modifier , depend-kind: variable-list )
-
+
depend-kind:
in | out | inout | mutexinoutset | depobj
DEF_FUNCTION_TYPE_4 (BT_FN_VOID_OMPFN_PTR_UINT_UINT,
BT_VOID, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
DEF_FUNCTION_TYPE_4 (BT_FN_UINT_OMPFN_PTR_UINT_UINT,
- BT_UINT, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
+ BT_UINT, BT_PTR_FN_VOID_PTR, BT_PTR, BT_UINT, BT_UINT)
DEF_FUNCTION_TYPE_4 (BT_FN_VOID_PTR_WORD_WORD_PTR,
BT_VOID, BT_PTR, BT_WORD, BT_WORD, BT_PTR)
DEF_FUNCTION_TYPE_4 (BT_FN_VOID_SIZE_VPTR_PTR_INT, BT_VOID, BT_SIZE,
c; c = omp_find_clause (OMP_CLAUSE_CHAIN (c), OMP_CLAUSE_REDUCTION))
if (OMP_CLAUSE_REDUCTION_TASK (c))
{
- tree type = build_pointer_type (pointer_sized_int_node);
+ tree type = build_pointer_type (pointer_sized_int_node);
tree temp = create_tmp_var (type);
tree c = build_omp_clause (UNKNOWN_LOCATION, OMP_CLAUSE__REDUCTEMP_);
if (outer_ctx)
}
}
}
- else if (OMP_CLAUSE_REDUCTION_OMP_ORIG_REF (c))
+ else if (OMP_CLAUSE_REDUCTION_OMP_ORIG_REF (c))
reduction_omp_orig_ref = true;
break;
case OMP_CLAUSE__REDUCTEMP_:
cnt = task_reduction_cntorig - 1;
x = build4 (ARRAY_REF, ptr_type_node, tskred_avar,
size_int (cnt), NULL_TREE, NULL_TREE);
-
+
gimple *g = gimple_build_assign (xv, x);
gimple_seq_add_stmt (ilist, g);
}
int i;
#pragma omp simd nontemporal (a, b)
for (i = 0; i < N; ++i)
- a[i] = b[i] + c[i];
+ a[i] = b[i] + c[i];
#pragma omp simd nontemporal (d)
for (i = 0; i < N; ++i)
- d[i] = 2 * c[i];
+ d[i] = 2 * c[i];
}
else
arr[i] = arr[i] + 2;
#pragma omp task depend (iterator (unsigned n=begu:endu:step2, unsigned int o = 512: 1024U: (unsigned char) 128), inout : \
- foo (5, n + 128, o)[0])
+ foo (5, n + 128, o)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 3)
abort ();
else
arr[i] = arr[i] + 4;
#pragma omp task depend (iterator (int unsigned p=endu:begu:step,unsigned q= 1025U:513U:(signed char) -128), in : \
- foo (6, p + 128, q)[0])
+ foo (6, p + 128, q)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 7)
abort ();
else
arr[i] = arr[i] + 2;
#pragma omp task depend (iterator (D n=begu:endu:step2, D o = 512: 1024U:(E) 128), inout : \
- foo (5, n + 128, o)[0])
+ foo (5, n + 128, o)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 3)
abort ();
else
arr[i] = arr[i] + 4;
#pragma omp task depend (iterator (D p=endu:begu:step,D q= 1025U:513U:(F) -128), in : \
- foo (6, p + 128, q)[0])
+ foo (6, p + 128, q)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 7)
abort ();
}
}
if (d[0] != 1LL << (8 + 4)
- || d[1] != 1LL << 16
+ || d[1] != 1LL << 16
|| m[0] != 5
|| m[1] != 19 * 16 + 6 * 8 + 16 * 4
|| m[2] != 5
}
}
if (d[0] != 1LL << (8 + 4)
- || d[1] != 1LL << 16
+ || d[1] != 1LL << 16
|| m[0] != 5
|| m[1] != 19 * 16 + 6 * 8 + 16 * 4
|| m[2] != 5
#pragma omp taskloop reduction (+: g, m) reduction (*: h, n)
for (i = 0; i < 64; ++i)
{
- g.s += 3 * a[i];
- h.s *= (3 - c[i]);
- m.s += 4 * a[i];
+ g.s += 3 * a[i];
+ h.s *= (3 - c[i]);
+ m.s += 4 * a[i];
n.s *= c[i];
if ((g.t != 7 && g.t != 3) || (h.t != 5 && h.t != 9)
|| (m.t != 7 && m.t != 3) || (n.t != 5 && n.t != 9))
struct U { U (); ~U () {}; U (const U &); int u[4]; };
U::U
-()
+()
{
u[0] = 0; u[1] = 1; u[2] = 2; u[3] = 3;
}
f[2] += 8;
}
if (d[0] != 1LL << (8 + 4)
- || d[1] != 1LL << 16
+ || d[1] != 1LL << 16
|| m[0] != 5
|| m[1] != 19 * 16 + 6 * 8 + 16 * 4
|| m[2] != 5
#pragma omp taskloop in_reduction (+: a, c[:2]) in_reduction (*: b[2 * n:3 * n], d[0:2]) \
reduction (default, +: o[n:n*2], m[1], p[0]) in_reduction (+: k[1:2][:], f[2:2]) \
reduction (+: q[1:2][:], r[2:2]) in_reduction (+: g[n:n*2], e[1], h[0]) \
- in_reduction (*: s[1:2], t[2:2][:])
+ in_reduction (*: s[1:2], t[2:2][:])
for (i = 0; i < 2; i++)
{
a[0].s += 7;
else
arr[i] = arr[i] + 2;
#pragma omp task depend (iterator (unsigned n=begu:endu:step2, unsigned int o = 512: 1024U: (unsigned char) 128), inout : \
- foo (5, n + 128, o)[0])
+ foo (5, n + 128, o)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 3)
abort ();
else
arr[i] = arr[i] + 4;
#pragma omp task depend (iterator (int unsigned p=endu:begu:step,unsigned q= 1025U:513U:(signed char) -128), in : \
- foo (6, p + 128, q)[0])
+ foo (6, p + 128, q)[0])
for (i = 0; i < 64; i++)
if (arr[i] != i + 7)
abort ();
for (k = 0; k < 10; k++)
if (b[i][j][k] != i + 1.0 + 1.5 * j - 1.5 * k)
return 1;
- N(f28) ();
+ N(f28) ();
OMPFROM (b);
for (i = 0; i < 10; i++)
for (j = 0; j < 15; j++)
#pragma omp taskloop in_reduction (+: g, m) in_reduction (*: h, n)
for (i = 0; i < 64; ++i)
{
- g.s += 3 * a[i];
- h.s *= (3 - c[i]);
- m.s += 4 * a[i];
+ g.s += 3 * a[i];
+ h.s *= (3 - c[i]);
+ m.s += 4 * a[i];
n.s *= c[i];
if ((g.t != 7 && g.t != 3) || (h.t != 5 && h.t != 9)
|| (m.t != 7 && m.t != 3) || (n.t != 5 && n.t != 9))
#pragma omp taskloop reduction (+: g, m) reduction (*: h, n)
for (i = 0; i < 64; ++i)
{
- g.s += 3 * a[i];
- h.s *= (3 - c[i]);
- m.s += 4 * a[i];
+ g.s += 3 * a[i];
+ h.s *= (3 - c[i]);
+ m.s += 4 * a[i];
n.s *= c[i];
if ((g.t != 7 && g.t != 3) || (h.t != 5 && h.t != 9)
|| (m.t != 7 && m.t != 3) || (n.t != 5 && n.t != 9))