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
same thing elsewhere
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
datatype
/
zeroparms.c
diff --git
a/teshsuite/smpi/mpich3-test/datatype/zeroparms.c
b/teshsuite/smpi/mpich3-test/datatype/zeroparms.c
index
2ad786f
..
ecb212a
100644
(file)
--- a/
teshsuite/smpi/mpich3-test/datatype/zeroparms.c
+++ b/
teshsuite/smpi/mpich3-test/datatype/zeroparms.c
@@
-7,31
+7,29
@@
#include <stdio.h>
#include <stdio.h>
-int main(
int argc, char *argv[]
)
+int main(
int argc, char *argv[]
)
{
MPI_Datatype newtype;
int b[1], d[1];
{
MPI_Datatype newtype;
int b[1], d[1];
- MPI_Init(
&argc, &argv
);
+ MPI_Init(
&argc, &argv
);
- /* create a legitimate type to see that we don't
+ /* create a legitimate type to see that we don't
* emit spurious errors.
*/
* emit spurious errors.
*/
- MPI_Type_hvector(
0, 1, 10, MPI_DOUBLE, &newtype
);
- MPI_Type_commit(
&newtype
);
- MPI_Type_free(
&newtype
);
+ MPI_Type_hvector(
0, 1, 10, MPI_DOUBLE, &newtype
);
+ MPI_Type_commit(
&newtype
);
+ MPI_Type_free(
&newtype
);
- MPI_Type_indexed(
0, b, d, MPI_DOUBLE, &newtype
);
- MPI_Type_commit(
&newtype
);
+ MPI_Type_indexed(
0, b, d, MPI_DOUBLE, &newtype
);
+ MPI_Type_commit(
&newtype
);
- MPI_Sendrecv( b, 1, newtype, 0, 0,
- d, 0, newtype, 0, 0,
- MPI_COMM_WORLD, MPI_STATUS_IGNORE );
+ MPI_Sendrecv(b, 1, newtype, 0, 0, d, 0, newtype, 0, 0, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
- printf( " No Errors\n" );
+ printf(" No Errors\n");
+
+ MPI_Type_free(&newtype);
- MPI_Type_free( &newtype );
-
MPI_Finalize();
return 0;
MPI_Finalize();
return 0;