Merge remote-tracking branch 'origin/master' into MPI
[scilab.git] / scilab / modules / mpi / tests / unit_tests / mpi_bcast.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2010-2010 - DIGITEO - Sylvestre LEDRU
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 //
8 // <-- MPI TEST 4 -->
9 //
10 MPI_Init();
11 rnk =    MPI_Comm_rank();
12 sizeNodes =    MPI_Comm_size();
13
14 assert_checkequal(MPI_Comm_size(), 4);
15
16 SLV = rnk;                // handy shortcuts, master is rank 0
17 Master = ~ SLV;            // slaves are all other
18
19 a=-1
20 if Master
21    // Declare a
22    a=42
23 end
24 b=MPI_Bcast(a, 0);
25 assert_checkequal(b,42);
26
27 a2=-1
28
29 if Master
30    // Declare a
31    a2=[2,2;3,2];
32
33 end
34
35 b2=MPI_Bcast(a2, 0);
36 assert_checkequal(b2,[2,2;3,2]);
37
38
39 MPI_Finalize();
40 exit