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

#include <stdlib.h>

int
main (void)
{
  int i;
  i = 4;
#pragma omp single copyprivate (i)
  {
    i = 6;
  }
  if (i != 6)
    abort ();
  return 0;
}