Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.c/pr104952-2.c
2023-03-06 14:48:14 +01:00

22 lines
359 B
C

#define N 32
static char arr[N];
int
main (void)
{
unsigned int result = 2;
for (unsigned int i = 0; i < N; ++i)
arr[i] = i + 1;
#pragma omp target map(tofrom:result) map(to:arr)
#pragma omp simd reduction(&&: result)
for (unsigned int i = 0; i < N; ++i)
result = result && arr[i];
if (result != 1)
__builtin_abort ();
return 0;
}