75d34b422629b470cd92a2a421c687f3d3d8ddb6
[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 // This test sends 42 from the master with a broadcast.
11 // All the nodes (including the server) check if we get the right value
12 MPI_Init();
13 rnk =    MPI_Comm_rank();
14 sizeNodes =    MPI_Comm_size();
15
16 assert_checkequal(MPI_Comm_size(), 4);
17
18 SLV = rnk;                // handy shortcuts, master is rank 0
19 Master = ~ SLV;            // slaves are all other
20 a=-1
21 if Master
22    // Declare a
23    a=42
24 end
25 b=MPI_Bcast(a, 0);
26 assert_checkequal(b,42);
27 MPI_Finalize();
28
29 exit
30