Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-loop-nest.c
2023-03-06 14:48:14 +01:00

24 lines
330 B
C

#include <stdlib.h>
#define N 1000
int
main (void)
{
int x[N][N];
#pragma acc kernels copyout (x)
{
for (int ii = 0; ii < N; ii++)
for (int jj = 0; jj < N; jj++)
x[ii][jj] = ii + jj + 3;
}
for (int i = 0; i < N; i++)
for (int j = 0; j < N; j++)
if (x[i][j] != i + j + 3)
abort ();
return 0;
}