Teuchos Package Browser (Single Doxygen Collection)  Version of the Day
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
subcommTestTeuchosComm.cpp
Go to the documentation of this file.
1 // Test to exercise fix to Teuchos::Comm's createSubcommunicator, which
2 // had leaked memory.
3 // The fix added MPI_Comm_free to the opaqueWrappers.
4 // 8/2018 This test hangs of platform waterman.
5 
6 #include <stdio.h>
7 #include <mpi.h>
10 #include "Teuchos_RCP.hpp"
11 #include "Teuchos_ArrayView.hpp"
12 
13 
14 int main(int narg, char **arg)
15 {
16  Teuchos::GlobalMPISession mpiSession(&narg,&arg);
17 
20  int me = comm->getRank();
21  int np = comm->getSize();
22 
23  int niter = 4;
24  int *ids = new int[np/2+1];
25  for (int i = 0; i < np/2+1; i++) ids[i] = i;
26  Teuchos::ArrayView<const int> list(ids, np/2+1);
27 
28  for (int i = 0; i < niter; i++) {
30  = comm->createSubcommunicator(list);
31  printf("iteration %d -- weak: %d strong: %d total: %d\n",
32  i, a.weak_count(), a.strong_count(), a.total_count());
33  }
34  delete [] ids;
35  if (me == 0)
36  printf("\nPASS\n");
37 
38  return 0;
39 }
static Teuchos::RCP< const Comm< OrdinalType > > getComm()
Return the default global communicator.
Initialize, finalize, and query the global MPI session.
int main(int argc, char *argv[])
Nonowning array view.
Smart reference counting pointer class for automatic garbage collection.
int strong_count() const
Return the number of active RCP&lt;&gt; objects that have a &quot;strong&quot; reference to the underlying reference-...
Reference-counted pointer class and non-member templated function implementations.
int weak_count() const
Return the number of active RCP&lt;&gt; objects that have a &quot;weak&quot; reference to the underlying reference-co...
int total_count() const
Total count (strong_count() + weak_count()).