/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */

/*

 *

 *  (C) 2011 by Argonne National Laboratory.

 *      See COPYRIGHT in top-level directory.

 */

/** MPI Mutex test -- James Dinan <dinan@mcs.anl.gov>

  *

  * All processes create N mutexes then lock+unlock all mutexes on all

  * processes.

  */

#include <stdio.h>

#include <stdlib.h>

#include <assert.h>

#include <mpi.h>

#define NUM_MUTEXES 100

const int verbose = 0;

int main(int argc, char **argv)

{

    int rank, nproc, i, j;

    MPIX_Mutex mtx;

    MPI_Init(&argc, &argv);

    MPI_Comm_rank(MPI_COMM_WORLD, &rank;;

    MPI_Comm_size(MPI_COMM_WORLD, &nproc);

    if (rank == 0 && verbose)

        printf("Starting mutex test with %d processes\n", nproc);

    MPIX_Mutex_create(NUM_MUTEXES, MPI_COMM_WORLD, &mtx);

    for (i = 0; i < nproc; i++)

        for (j = 0; j < NUM_MUTEXES; j++) {

            MPIX_Mutex_lock(mtx, j, (rank + i) % nproc);

            MPIX_Mutex_unlock(mtx, j, (rank + i) % nproc);

        }

    if (verbose) {

        printf(" + %3d done\n", rank);

        fflush(NULL);

    }

    MPIX_Mutex_free(&mtx);

    if (rank == 0)

        printf(" No Errors\n");

    MPI_Finalize();

    return 0;

}