1
1
openmpi/orte/test/system/orte_barrier.c
Ralph Castain 4026a9c873 Update all the tests to the new orte_init API
This commit was SVN r22263.
2009-12-04 04:31:06 +00:00

29 строки
525 B
C

/* -*- C -*-
*
* $HEADER$
*
* The most basic of applications
*/
#include <stdio.h>
#include "orte/runtime/runtime.h"
#include "orte/mca/grpcomm/grpcomm.h"
int main(int argc, char* argv[])
{
if (ORTE_SUCCESS != orte_init(&argc, &argv, ORTE_PROC_NON_MPI)) {
fprintf(stderr, "Failed orte_init\n");
exit(1);
}
orte_grpcomm.barrier();
orte_grpcomm.barrier();
if (ORTE_SUCCESS != orte_finalize()) {
fprintf(stderr, "Failed orte_finalize\n");
exit(1);
}
return 0;
}