Memory leak fix on MPI_Group and when throwing in MPIProcessorGroup.

[modules/med.git] / src / ParaMEDMEMTest / ParaMEDMEMTest_MPIProcessorGroup.cxx

diff --git a/src/ParaMEDMEMTest/ParaMEDMEMTest_MPIProcessorGroup.cxx b/src/ParaMEDMEMTest/ParaMEDMEMTest_MPIProcessorGroup.cxx
old mode 100755 (executable)
new mode 100644 (file)
index 1e52f61..3c6fc3b
--- a/src/ParaMEDMEMTest/ParaMEDMEMTest_MPIProcessorGroup.cxx
+++ b/src/ParaMEDMEMTest/ParaMEDMEMTest_MPIProcessorGroup.cxx
@@ -1,4 +1,4 @@
-// Copyright (C) 2007-2014  CEA/DEN, EDF R&D
+// Copyright (C) 2007-2015  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
@@ -58,18 +58,20 @@ using namespace ParaMEDMEM;
 void ParaMEDMEMTest::testMPIProcessorGroup_constructor()
 {
   CommInterface comm_interface;
-  MPIProcessorGroup* group= new MPIProcessorGroup(comm_interface);
+  MPIProcessorGroup* group;
   int size;
   MPI_Comm_size(MPI_COMM_WORLD, &size);
+
+  group= new MPIProcessorGroup(comm_interface);
   CPPUNIT_ASSERT_EQUAL(size,group->size());
   int size2;
   const MPI_Comm* communicator=group->getComm();
   MPI_Comm_size(*communicator, &size2);
   CPPUNIT_ASSERT_EQUAL(size,size2);
   delete group;
-  
+
   set <int> procs;
-  
+
   procs.insert(0);
   procs.insert(1);
   if (size==1)
@@ -80,8 +82,7 @@ void ParaMEDMEMTest::testMPIProcessorGroup_constructor()
       CPPUNIT_ASSERT_EQUAL (group->size(),2);
       delete group;
     }
-  
-  
+
   //throws because plast<pfirst
   CPPUNIT_ASSERT_THROW(group=new MPIProcessorGroup(comm_interface,1,0),INTERP_KERNEL::Exception);
   //throws because plast is beyond size-1
@@ -92,7 +93,7 @@ void ParaMEDMEMTest::testMPIProcessorGroup_constructor()
       CPPUNIT_ASSERT_EQUAL(group->size(),size-1);
       delete group;
     }
-  
+
 }
  
 void ParaMEDMEMTest::testMPIProcessorGroup_boolean()