Commit 8eef807c authored by Wesley Bland's avatar Wesley Bland
Browse files

Add a test for the bug in #2129



Test this case so we don't have another regression. Thanks for test case
contributed by Lisandro Dalcin (dalcinl@gmail.com).

See #2129
Signed-off-by: Kenneth Raffenetti's avatarKen Raffenetti <raffenet@mcs.anl.gov>
parent 209a8b7d
......@@ -23,6 +23,7 @@ noinst_PROGRAMS = \
bsendalign \
cancelrecv \
isendself \
issendselfcancel \
sendself \
eagerdt \
isendselfprobe \
......
/* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
/*
* (C) 2014 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
#import <stdio.h>
#import <stdlib.h>
#import <assert.h>
#import "mpi.h"
int main(int argc, char **argv)
{
MPI_Request req;
MPI_Status status;
MPI_Init(NULL, NULL);
MPI_Issend(NULL, 0, MPI_BYTE, 0, 123, MPI_COMM_SELF, &req);
MPI_Probe(MPI_ANY_SOURCE, MPI_ANY_TAG, MPI_COMM_SELF, &status);
assert(status.MPI_SOURCE == 0);
assert(status.MPI_TAG == 123);
MPI_Cancel(&req);
assert(req != MPI_REQUEST_NULL);
MPI_Request_free(&req);
MPI_Irecv(NULL, 0, MPI_BYTE, 0, 123, MPI_COMM_SELF, &req);
MPI_Cancel(&req);
MPI_Wait(&req, &status);
printf(" No Errors\n");
MPI_Finalize();
}
......@@ -16,6 +16,7 @@ bsend5 4
bsendalign 2
bsendpending 2
isendself 1
issendselfcancel 1
bsendfrag 2
icsend 4
rqstatus 2
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment