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

26 lines
314 B
C

extern
#ifdef __cplusplus
"C"
#endif
void abort (void);
#define N 10
int
main (void)
{
int a[N];
for (short i = 0; i < N; ++i)
a[i] = -1;
#pragma acc parallel loop tile (2)
for (short i = 0; i < N; ++i)
a[i] = i;
for (short i = 0; i < N; ++i)
if (a[i] != i)
abort ();
return 0;
}