Various fixes for test runs - introducing MEDCOUPLING_RESOURCE_DIR env variable

[tools/medcoupling.git] / src / ParaMEDMEMTest / test_MPI_Access_ISend_IRecv.cxx

diff --git a/src/ParaMEDMEMTest/test_MPI_Access_ISend_IRecv.cxx b/src/ParaMEDMEMTest/test_MPI_Access_ISend_IRecv.cxx
index ce6b284e8d96b74a80b1fc7aefb7ab9e1a8dd813..99aaf640b626acaf81cb71aecf3181a953158266 100644 (file)
--- a/src/ParaMEDMEMTest/test_MPI_Access_ISend_IRecv.cxx
+++ b/src/ParaMEDMEMTest/test_MPI_Access_ISend_IRecv.cxx
@@ -1,4 +1,4 @@
-// Copyright (C) 2007-2015  CEA/DEN, EDF R&D
+// Copyright (C) 2007-2020  CEA/DEN, EDF R&D
 //
 // This library is free software; you can redistribute it and/or
 // modify it under the terms of the GNU Lesser General Public
@@ -52,8 +52,8 @@ void MPIAccessTest::test_MPI_Access_ISend_IRecv() {
   MPI_Comm_rank(MPI_COMM_WORLD,&myrank) ;
 
   if ( size < 2 ) {
-      cerr << "test_MPI_Access_ISend_IRecv must be runned with 2 procs" << endl ;
-    //CPPUNIT_FAIL("test_MPI_Access_ISend_IRecv must be runned with 2 procs") ;
+      cerr << "test_MPI_Access_ISend_IRecv must be run with 2 procs" << endl ;
+    //CPPUNIT_FAIL("test_MPI_Access_ISend_IRecv must be run with 2 procs") ;
     return;
   }
 
@@ -102,7 +102,7 @@ void MPIAccessTest::test_MPI_Access_ISend_IRecv() {
         mpi_access.test( RecvRequestId[j], flag ) ;
       }
       if ( flag ) {
-        int target,source, tag, error, outcount ;
+        int source, tag, error, outcount ;
         if ( myrank == 0 ) {
           mpi_access.status( SendRequestId[j], target, tag, error, outcount,
                              true ) ;
@@ -169,7 +169,6 @@ void MPIAccessTest::test_MPI_Access_ISend_IRecv() {
   if ( myrank == 0 ) {
     int sendrequests[maxreq] ;
     int sendreqsize = mpi_access.sendRequestIds( target , maxreq , sendrequests ) ;
-    int i ;
     if ( sendreqsize != 0 ) {
       ostringstream strstream ;
       strstream << "=========================================================" << endl