Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/libgomp/testsuite/libgomp.c/pr104783.c

int
main (void)
{
  unsigned val = 0;

#pragma omp target map(tofrom: val)
#pragma omp simd
  for (int i = 0 ; i < 1 ; i++)
    {
#pragma omp atomic update
      val = val + 1;
    }

  if (val != 1)
    __builtin_abort ();

  return 0;
}