[MPI] warning compilation and tests fixed 17/20817/2
Cedric Delamarre [Thu, 7 Feb 2019 11:00:48 +0000 (12:00 +0100)]
Change-Id: I59a571adeadf734a5a00a9193454fadf73069069

scilab/modules/mpi/sci_gateway/c/sci_mpi_bcast.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_comm_rank.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_comm_size.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_irecv.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_isend.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_recv.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_send.c
scilab/modules/mpi/sci_gateway/c/sci_mpi_wait.c
scilab/modules/mpi/tests/unit_tests/mpi_create_comm.tst
scilab/modules/mpi/tests/unit_tests/mpi_init.tst
scilab/modules/mpi/tests/unit_tests/mpi_send_sparse.tst

index fd020f4..9beb932 100644 (file)
@@ -34,13 +34,14 @@ int sci_mpi_bcast(char *fname, void* pvApiCtx)
     int iBufferSize = 0;
     double rootID = 0;
     int rank = 0;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 2, 3);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
     // return the communicator from optional argument "comm"
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 2b0d52b..aed34e4 100644 (file)
 int sci_mpi_comm_rank(char *fname, void* pvApiCtx)
 {
     int comm_rank = -1;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 0, 1); // Check the parameters of the function ... Here 0 or 1
     CheckOutputArgument(pvApiCtx, 1, 1); // The output of the function (1 parameter)
 
     // return the communicator from optional argument "comm"
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 8ddf4db..43123c1 100644 (file)
 int sci_mpi_comm_size(char *fname, void* pvApiCtx)
 {
     int comm_size = -1;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 0, 1); // Check the parameters of the function ... Here 0 or 1
     CheckOutputArgument(pvApiCtx, 1, 1); // The output of the function (1 parameter)
 
     // return the communicator from optional argument "comm"
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 2a483e5..87a80c2 100644 (file)
@@ -38,12 +38,13 @@ int sci_mpi_irecv(char *fname, void* pvApiCtx)
     int iRequestID = 0;
     double dblRequestID = 0;
     MPI_Status status;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 3, 4);
     CheckOutputArgument(pvApiCtx, 0, 1);
 
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 6a9c4f4..8ace88f 100644 (file)
@@ -39,13 +39,14 @@ int sci_mpi_isend(char *fname, void* pvApiCtx)
     double NodeID = 0;
     int iRequestID = 0;
     double dblRequestID = 0;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 3, 4);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
     // return the communicator from optional argument "comm"
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 5df6faa..7e8ff6f 100644 (file)
@@ -33,12 +33,13 @@ int sci_mpi_recv(char *fname, void* pvApiCtx)
     double Tag = 0;
     double Rank = 0;
     MPI_Status status;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 2, 3);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 0575090..46c3159 100644 (file)
@@ -33,13 +33,14 @@ int sci_mpi_send(char *fname, void* pvApiCtx)
     int *piBuffer = NULL;
     int iBufferSize = 0;
     double NodeID = 0;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 2, 3);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
     // return the communicator from optional argument "comm"
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index d7b6d9b..90769c0 100644 (file)
@@ -33,12 +33,13 @@ int sci_mpi_wait(char *fname, void* pvApiCtx)
     double NodeID = 0;
     int iRequestID;
     double dblRequestID;
+    MPI_Comm comm = NULL;
 
     CheckInputArgument(pvApiCtx, 1, 2);
     CheckOutputArgument(pvApiCtx, 1, 1);
 
     // if no optional "comm" is given, return MPI_COMM_WORLD
-    MPI_Comm comm = getOptionalComm(pvApiCtx);
+    comm = getOptionalComm(pvApiCtx);
     if (comm == NULL)
     {
         Scierror(999, _("%s: Wrong type for input argument #%s: An MPI communicator expected.\n"), fname, "comm");
index 79fa07d..9e05257 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 //
-// <-- MPI TEST -->
+// <-- MPI TEST 4 -->
 //
 
 MPI_Init();
index c8639f6..e2eb39f 100644 (file)
@@ -12,9 +12,9 @@ MPI_Init();
 if MPI_Comm_rank() <> 0 & MPI_Comm_rank() <> 1 then pause, end
 assert_checkequal(MPI_Comm_size(), 2);
 
-if execstr("MPI_Init(1);", "errcatch") <> 77 then pause,end
-if execstr("MPI_Comm_rank(1);", "errcatch") <> 77 then pause,end
-// if execstr("MPI_Comm_size(1,2);", "errcatch") <> 77 then pause,end
+assert_checkerror("MPI_Init(1);", msprintf(_("%s: Wrong number of input argument(s): %d expected.\n"), "MPI_Init", 0));
+assert_checkerror("MPI_Comm_rank(1,2);", msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "MPI_Comm_rank", 0, 1));
+assert_checkerror("MPI_Comm_size(1,2)", msprintf(_("%s: Wrong number of input argument(s): %d to %d expected.\n"), "MPI_Comm_size", 0, 1));
 
 MPI_Finalize();
 exit()
index f06f2a1..bff1ddf 100644 (file)
@@ -6,7 +6,9 @@
 // =============================================================================
 //
 // <-- MPI TEST -->
-// 
+// <-- NOT FIXED --> 6.0.2 -> 6.0.2
+//
+
 MPI_Init();
 rnk =    MPI_Comm_rank();
 sizeNodes =    MPI_Comm_size();