A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Merge branch 'clean_events' of github.com:Takishipp/simgrid into clean_events
[simgrid.git]
/
teshsuite
/
smpi
/
isp
/
umpire
/
remote_group-no-error.c
diff --git
a/teshsuite/smpi/isp/umpire/remote_group-no-error.c
b/teshsuite/smpi/isp/umpire/remote_group-no-error.c
index
0b01269
..
e62fc50
100644
(file)
--- a/
teshsuite/smpi/isp/umpire/remote_group-no-error.c
+++ b/
teshsuite/smpi/isp/umpire/remote_group-no-error.c
@@
-21,12
+21,12
@@
main (int argc, char **argv)
{
int nprocs = -1;
int rank = -1;
-
int
comm = MPI_COMM_WORLD;
+
MPI_Comm
comm = MPI_COMM_WORLD;
char processor_name[128];
int namelen = 128;
int i;
- MPI_Group newgroup;
- MPI_Group newgroup2;
+ MPI_Group newgroup;
+ MPI_Group newgroup2;
MPI_Comm temp;
MPI_Comm intercomm = MPI_COMM_NULL;
@@
-49,13
+49,13
@@
main (int argc, char **argv)
MPI_Comm_split (MPI_COMM_WORLD, rank % 3, nprocs - rank, &temp);
if (rank % 3) {
- MPI_Intercomm_create (temp, 0, MPI_COMM_WORLD,
+ MPI_Intercomm_create (temp, 0, MPI_COMM_WORLD,
(((nprocs % 3) == 2) && ((rank % 3) == 2)) ?
nprocs - 1 : nprocs - (rank % 3) - (nprocs % 3),
INTERCOMM_CREATE_TAG, &intercomm);
MPI_Comm_remote_group (intercomm, &newgroup);
-
+
MPI_Comm_free (&intercomm);
}
else {
@@
-63,7
+63,7
@@
main (int argc, char **argv)
}
MPI_Comm_free (&temp);
-
+
MPI_Group_free (&newgroup);
MPI_Barrier (comm);
@@
-73,7
+73,7
@@
main (int argc, char **argv)
MPI_Comm_split (MPI_COMM_WORLD, rank % 3, nprocs - rank, &temp);
if (rank % 3) {
- MPI_Intercomm_create (temp, 0, MPI_COMM_WORLD,
+ MPI_Intercomm_create (temp, 0, MPI_COMM_WORLD,
(((nprocs % 3) == 2) && ((rank % 3) == 2)) ?
nprocs - 1 : nprocs - (rank % 3) - (nprocs % 3),
INTERCOMM_CREATE_TAG, &intercomm);
@@
-87,7
+87,7
@@
main (int argc, char **argv)
}
MPI_Comm_free (&temp);
-
+
newgroup2 = newgroup;
MPI_Group_free (&newgroup2);
}