Blob Blame History Raw
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
 *  (C) 2008 by Argonne National Laboratory.
 *      See COPYRIGHT in top-level directory.
 */

#include "opa_primitives.h"
#include <assert.h>
#include <stdio.h>


int main(int argc, char **argv)
{
    OPA_int_t a, b;
    int c;
#if defined(OPA_USE_LOCK_BASED_PRIMITIVES)
    OPA_emulation_ipl_t shm_lock;
    OPA_Interprocess_lock_init(&shm_lock, 1/*isLeader*/);
#endif

    OPA_store_int(&a, 0);
    OPA_store_int(&b, 1);
    OPA_add_int(&a, 10);
    assert(10 == OPA_load_int(&a));
    c = OPA_cas_int(&a, 10, 11);
    assert(10 == c);
    c = OPA_swap_int(&a, OPA_load_int(&b));
    assert(11 == c);
    assert(1 == OPA_load_int(&a));

    printf("success!\n");

    return 0;
}