Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gcc.dg/pr103721-2.c
2023-03-06 14:48:14 +01:00

28 lines
387 B
C

// { dg-do run }
// { dg-options "-O2" }
extern void abort ();
struct S { int x; } a[10];
struct S *b;
int
main ()
{
int i, j = 0;
struct S *q = a;
for (i = 100; --i > 0; )
{
struct S *p;
j++;
if (j >= 10)
j = 0;
p = &a[j];
if (p == q)
abort ();
__atomic_thread_fence (__ATOMIC_SEQ_CST);
q = p;
}
return 0;
}