teshsuite/smpi/privatization/privatization.c

   1
   2 #include <stdio.h>
   3 #include <stdlib.h>
   4 #include <mpi.h>
   5
   6
   7 static int myvalue = 0;
   8
   9 int main(int argc, char **argv)
  10 {
  11     int me;
  12
  13     MPI_Init(&argc, &argv);
  14
  15     MPI_Comm_rank(MPI_COMM_WORLD, &me);
  16
  17     MPI_Barrier(MPI_COMM_WORLD);
  18
  19     myvalue = me;
  20
  21     MPI_Barrier(MPI_COMM_WORLD);
  22
  23     if(myvalue!=me)
  24       printf("Privatization error - %d != %d\n", myvalue, me);
  25     MPI_Finalize();
  26     return 0;
  27 }