dbxtest.c

来自「fortran并行计算包」· C语言 代码 · 共 27 行

/*
   (C) 2001 by Argonne National Laboratory.
       See COPYRIGHT in top-level directory.
*/
#include "mpi.h"
#include <stdio.h>

main( int argc, char **argv )
int argc;
char **argv;
{
    int dest = 0, *buffer=&dest;
 
    MPI_Init( &argc, &argv );
    /* MPE_Errors_call_xdbx( argv[0], (char *)0 );  */
    MPE_Errors_call_dbx_in_xterm( argv[0], (char *)0 );
    MPE_Signals_call_debugger();
    /* Make erroneous call... */
    if (argc > 0) {
        buffer = 0;
        *buffer = 3; 
    }
    else 
        MPI_Send(buffer, 20, MPI_INT, dest, 1, NULL);
    MPI_Finalize();
}