157f21012SBarry Smith 257f21012SBarry Smith static char help[] = "Tests PetscCommGetComm().\n"; 357f21012SBarry Smith 457f21012SBarry Smith #include <petscsys.h> 557f21012SBarry Smith 6*d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 7*d71ae5a4SJacob Faibussowitsch { 857f21012SBarry Smith MPI_Comm comms[10], comm; 957f21012SBarry Smith PetscInt i; 1057f21012SBarry Smith PetscRandom rand; 1157f21012SBarry Smith 12327415f7SBarry Smith PetscFunctionBeginUser; 139566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, (char *)0, help)); 149566063dSJacob Faibussowitsch PetscCall(PetscRandomCreate(PETSC_COMM_WORLD, &rand)); 159566063dSJacob Faibussowitsch PetscCall(PetscObjectGetComm((PetscObject)rand, &comm)); 1648a46eb9SPierre Jolivet for (i = 0; i < 10; i++) PetscCall(PetscCommGetComm(comm, &comms[i])); 1748a46eb9SPierre Jolivet for (i = 0; i < 5; i++) PetscCall(PetscCommRestoreComm(comm, &comms[i])); 1848a46eb9SPierre Jolivet for (i = 0; i < 5; i++) PetscCall(PetscCommGetComm(comm, &comms[i])); 1948a46eb9SPierre Jolivet for (i = 0; i < 10; i++) PetscCall(PetscCommRestoreComm(comm, &comms[i])); 209566063dSJacob Faibussowitsch PetscCall(PetscRandomDestroy(&rand)); 219566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 22b122ec5aSJacob Faibussowitsch return 0; 2357f21012SBarry Smith } 2457f21012SBarry Smith 2557f21012SBarry Smith /*TEST 2657f21012SBarry Smith 2757f21012SBarry Smith test: 2857f21012SBarry Smith requires: defined(PETSC_USE_LOG) 2957f21012SBarry Smith args: -info 3057f21012SBarry Smith filter: grep Reusing | wc -l 3157f21012SBarry Smith 3257f21012SBarry Smith TEST*/ 33