testsuite/tests/rts/atomicinc.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#include "Rts.h"

StgWord i;

int main(int argc, char *argv[])
{
    StgWord j;

    i = 0;
    j = atomic_inc(&i,1);
    CHECK(j == 1);
    CHECK(i == 1);

    j = atomic_dec(&i);
    CHECK(j == 0);
    CHECK(i == 0);

    return 0;
}