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
one more test for attr
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
rma
/
test1_dt.c
diff --git
a/teshsuite/smpi/mpich3-test/rma/test1_dt.c
b/teshsuite/smpi/mpich3-test/rma/test1_dt.c
index 072c184b253328fb7fd1ed0f10f7aab1aa9d6721..68bec22099f49011ff39b0b63381d08bbb05bd68 100644
(file)
--- a/
teshsuite/smpi/mpich3-test/rma/test1_dt.c
+++ b/
teshsuite/smpi/mpich3-test/rma/test1_dt.c
@@
-3,7
+3,7
@@
* (C) 2001 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
* (C) 2001 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
-#include "mpi.h"
+#include "mpi.h"
#include "stdio.h"
#include "mpitest.h"
#include "squelch.h"
#include "stdio.h"
#include "mpitest.h"
#include "squelch.h"
@@
-13,17
+13,17
@@
#define SIZE 100
#define SIZE 100
-int main(int argc, char *argv[])
-{
+int main(int argc, char *argv[])
+{
int rank, nprocs, A[SIZE], B[SIZE], i;
MPI_Comm CommDeuce;
MPI_Win win;
MPI_Datatype contig_2ints;
int errs = 0;
int rank, nprocs, A[SIZE], B[SIZE], i;
MPI_Comm CommDeuce;
MPI_Win win;
MPI_Datatype contig_2ints;
int errs = 0;
- MTest_Init(&argc,
&argv);
- MPI_Comm_size(MPI_COMM_WORLD,
&nprocs);
- MPI_Comm_rank(MPI_COMM_WORLD,
&rank);
+ MTest_Init(&argc,
&argv);
+ MPI_Comm_size(MPI_COMM_WORLD,
&nprocs);
+ MPI_Comm_rank(MPI_COMM_WORLD,
&rank);
if (nprocs < 2) {
printf("Run this program with 2 or more processes\n");
if (nprocs < 2) {
printf("Run this program with 2 or more processes\n");
@@
-35,46
+35,48
@@
int main(int argc, char *argv[])
if (rank < 2) {
if (rank == 0) {
if (rank < 2) {
if (rank == 0) {
- for (i
=0; i<
SIZE; i++)
+ for (i
= 0; i <
SIZE; i++)
A[i] = B[i] = i;
}
else {
A[i] = B[i] = i;
}
else {
- for (i
=0; i<
SIZE; i++) {
- A[i] = (-3)
*
i;
- B[i] = (-4)
*
i;
+ for (i
= 0; i <
SIZE; i++) {
+ A[i] = (-3)
*
i;
+ B[i] = (-4)
*
i;
}
}
MPI_Type_contiguous(2, MPI_INT, &contig_2ints);
MPI_Type_commit(&contig_2ints);
}
}
MPI_Type_contiguous(2, MPI_INT, &contig_2ints);
MPI_Type_commit(&contig_2ints);
- MPI_Win_create(B, SIZE
*
sizeof(int), sizeof(int), MPI_INFO_NULL, CommDeuce, &win);
+ MPI_Win_create(B, SIZE
*
sizeof(int), sizeof(int), MPI_INFO_NULL, CommDeuce, &win);
MPI_Win_fence(0, win);
if (rank == 0) {
MPI_Win_fence(0, win);
if (rank == 0) {
- for (i
=0; i<SIZE-2; i+=
2)
- MPI_Put(A
+
i, 2, MPI_INT, 1, i, 1, contig_2ints, win);
+ for (i
= 0; i < SIZE - 2; i +=
2)
+ MPI_Put(A
+
i, 2, MPI_INT, 1, i, 1, contig_2ints, win);
}
else {
}
else {
- for (i
=0; i<SIZE-2; i+=
2)
- MPI_Get(A
+
i, 2, MPI_INT, 0, i, 1, contig_2ints, win);
+ for (i
= 0; i < SIZE - 2; i +=
2)
+ MPI_Get(A
+
i, 2, MPI_INT, 0, i, 1, contig_2ints, win);
- MPI_Accumulate(A
+SIZE-2, 2, MPI_INT, 0, SIZE-
2, 1, contig_2ints, MPI_SUM, win);
+ MPI_Accumulate(A
+ SIZE - 2, 2, MPI_INT, 0, SIZE -
2, 1, contig_2ints, MPI_SUM, win);
}
MPI_Win_fence(0, win);
if (rank == 1) {
}
MPI_Win_fence(0, win);
if (rank == 1) {
- for (i
=0; i<SIZE-
2; i++) {
+ for (i
= 0; i < SIZE -
2; i++) {
if (A[i] != B[i]) {
if (A[i] != B[i]) {
- SQUELCH(
printf("Put/Get Error: A[i]=%d, B[i]=%d\n", A[i], B[i]);
);
+ SQUELCH(
printf("Put/Get Error: A[i]=%d, B[i]=%d\n", A[i], B[i]);
);
errs++;
}
}
}
else {
errs++;
}
}
}
else {
- if (B[SIZE-1] != SIZE - 1 - 3*(SIZE-1)) {
- SQUELCH( printf("Accumulate Error: B[SIZE-1] is %d, should be %d\n", B[SIZE-1], SIZE - 1 - 3*(SIZE-1)); );
+ if (B[SIZE - 1] != SIZE - 1 - 3 * (SIZE - 1)) {
+ SQUELCH(printf
+ ("Accumulate Error: B[SIZE-1] is %d, should be %d\n", B[SIZE - 1],
+ SIZE - 1 - 3 * (SIZE - 1)););
errs++;
}
}
errs++;
}
}
@@
-84,6
+86,6
@@
int main(int argc, char *argv[])
}
MPI_Comm_free(&CommDeuce);
MTest_Finalize(errs);
}
MPI_Comm_free(&CommDeuce);
MTest_Finalize(errs);
- MPI_Finalize();
- return 0;
-}
+ MPI_Finalize();
+ return 0;
+}