Files
clang-p2996/openmp/libomptarget/test/mapping/reduction_implicit_map.cpp
Matt Arsenault 90f914c870 OpenMP: Un-xfail tests that pass now
729bf9b26b should have fixed these
2021-12-04 11:25:22 -05:00

26 lines
587 B
C++

// RUN: %libomptarget-compilexx-run-and-check-generic
#include <stdio.h>
void sum(int* input, int size, int* output)
{
#pragma omp target teams distribute parallel for reduction(+:output[0]) \
map(to:input[0:size])
for (int i = 0; i < size; i++)
output[0] += input[i];
}
int main()
{
const int size = 100;
int *array = new int[size];
int result = 0;
for (int i = 0; i < size; i++)
array[i] = i + 1;
sum(array, size, &result);
// CHECK: Result=5050
printf("Result=%d\n", result);
delete[] array;
return 0;
}