fortran: Factor the evaluation of MINLOC/MAXLOC's BACK argument
[official-gcc.git] / libgomp / testsuite / libgomp.c / pr104952-2.c
blob7ab4bcdb8af3ebb9fe0f6f71ae3d708e99fe7879
1 #define N 32
3 static char arr[N];
5 int
6 main (void)
8 unsigned int result = 2;
10 for (unsigned int i = 0; i < N; ++i)
11 arr[i] = i + 1;
13 #pragma omp target map(tofrom:result) map(to:arr)
14 #pragma omp simd reduction(&&: result)
15 for (unsigned int i = 0; i < N; ++i)
16 result = result && arr[i];
18 if (result != 1)
19 __builtin_abort ();
21 return 0;