MPI (C++)

[caliente]

Всем доброго времени суток. Помогите пожалуйста найти ошибку. При запуске программы ничего не происходит, только курсор мерцает. Не могу понять где намудрил в буфере или в отправке и приеме.
Задание:
В каждом подчиненном процессе дано целое число N, причем для одного процесса это число больше нуля, а для остальных равно нулю. В процессе с ненулевым N дан также набор из N чисел. Переслать данный набор чисел в главный процесс и вывести в главном процессе полученные числа и ранг процесса, переславшего этот набор. При приеме сообщения использовать параметр MPI_ANY_SOURCE.

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

int main(int argc,char *argv[])
{ int myid, numprocs;
int namelen;
char processor_name[MPI_MAX_PROCESSOR_NAME];
MPI_Init(&argc,&argv);
MPI_Comm_size(MPI_COMM_WORLD,&numprocs);
MPI_Comm_rank(MPI_COMM_WORLD,&myid);
MPI_Get_processor_name(processor_name,&namelen);
if(myid==0){
	int M;
	MPI_Status status;
	MPI_Probe(MPI_ANY_SOURCE,	0, MPI_COMM_WORLD, &status);
	MPI_Get_count(&status, MPI_INT, &M);
	//MPI_Recv(&M, 1, MPI_INT, MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &status);
	int *buf=(int*)malloc(M*sizeof(int));
	MPI_Recv(buf, M, MPI_INT, MPI_ANY_SOURCE, 0, MPI_COMM_WORLD, &status);
	int R=status.MPI_SOURCE;
	fprintf(stdout,"process %d recived %d numbers from process %d \n",myid, M, R);
	for(int i=0; i<M; i++)
		fprintf(stdout, "%d\n", *(buf+i));
	fflush(stdout);
}
else{
	if(myid==3){int N;
	srand(myid);
	N=(int)(8*rand()/RAND_MAX+1);
	int*A=(int*)malloc(N*sizeof(int));
	for(int i=0;i<N;i++)
		*(A+i)=rand();
	//MPI_Send(&N, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
	MPI_Send(A, N, MPI_INT, 0, 0, MPI_COMM_WORLD);
	}
}
MPI_Finalize();
return 0;
}