WIP FPC-III support
[linux/fpc-iii.git] / tools / memory-model / litmus-tests / IRIW+poonceonces+OnceOnce.litmus
blobf84022dca5551e111c045da83668e65d3795e88e
1 C IRIW+poonceonces+OnceOnce
3 (*
4  * Result: Sometimes
5  *
6  * Test of independent reads from independent writes with nothing
7  * between each pairs of reads.  In other words, is anything at all
8  * needed to cause two different reading processes to agree on the order
9  * of a pair of writes, where each write is to a different variable by a
10  * different process?
11  *)
14         int x;
15         int y;
18 P0(int *x)
20         WRITE_ONCE(*x, 1);
23 P1(int *x, int *y)
25         int r0;
26         int r1;
28         r0 = READ_ONCE(*x);
29         r1 = READ_ONCE(*y);
32 P2(int *y)
34         WRITE_ONCE(*y, 1);
37 P3(int *x, int *y)
39         int r0;
40         int r1;
42         r0 = READ_ONCE(*y);
43         r1 = READ_ONCE(*x);
46 exists (1:r0=1 /\ 1:r1=0 /\ 3:r0=1 /\ 3:r1=0)