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

/* { dg-do run } */

void abort (void);

int main()
{
  int x;
  int *p;

  p = &x;

  #pragma omp parallel
    {
      if (p != &x)
        abort ();
    }

  return 0;
}