markalle

#include <stdio.h>
#include <mpi.h>

void
print_buf(char *buf, int nbytes)
{
    int i;
    if (nbytes > 24) {
        printf("\n");
    }

markalle

#include <stdlib.h>
#include <stdio.h>
#include <inttypes.h>
#include <string.h>
#include "mpi.h"

char inbuf[1024];
char packedbuf[1024];
char unpackedbuf[1024];

markalle

#include <stdlib.h>
#include <stdio.h>
#include <inttypes.h>
#include <string.h>
#include "mpi.h"

char inbuf[1024];
char packedbuf[1024];
char unpackedbuf[1024];

markalle

/*
 * Copyright (c) 2017      IBM Corporation.  All rights reserved.
 * $COPYRIGHT$
 *
 * Additional copyrights may follow
 *
 * $HEADER$
 */

// Test for ranks getting and holding multiple locks at the same time.

markalle

Open MPI:
[ibmgpu01:17555] MCW rank 1 bound to socket 1[core 8[hwt 0-1]], socket 1[core 9[hwt 0-1]], socket 1[core 10[hwt 0-1]], socket 1[core 11[hwt 0-1]], socket 1[core 12[hwt 0-1]], socket 1[core 13[hwt 0-1]], socket 1[core 14[hwt 0-1]], socket 1[core 15[hwt 0-1]]: [../../../../../../../..][BB/BB/BB/BB/BB/BB/BB/BB]

Platform-MPI:
- R1: [00 00 00 00 00 00 00 00],[11 11 11 11 11 11 11 11]  : 0xFF00FF00




  - R0: [11 11 00 00],[00 00 00 00]  : 0x00000505