X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/826897d361add5db3272a9810e70371a40ba1660..5ca17dc381bb7fba4f2689143e2080f7549ee0ab:/teshsuite/smpi/mpich3-test/rma/fkeyvalwin.c diff --git a/teshsuite/smpi/mpich3-test/rma/fkeyvalwin.c b/teshsuite/smpi/mpich3-test/rma/fkeyvalwin.c index 7aed170871..620eb61d53 100644 --- a/teshsuite/smpi/mpich3-test/rma/fkeyvalwin.c +++ b/teshsuite/smpi/mpich3-test/rma/fkeyvalwin.c @@ -21,72 +21,66 @@ executed"; /* Copy increments the attribute value */ /* Note that we can really ignore this because there is no win dup */ -int copy_fn( MPI_Win oldwin, int keyval, void *extra_state, - void *attribute_val_in, void *attribute_val_out, - int *flag); -int copy_fn( MPI_Win oldwin, int keyval, void *extra_state, - void *attribute_val_in, void *attribute_val_out, - int *flag) +int copy_fn(MPI_Win oldwin, int keyval, void *extra_state, + void *attribute_val_in, void *attribute_val_out, int *flag); +int copy_fn(MPI_Win oldwin, int keyval, void *extra_state, + void *attribute_val_in, void *attribute_val_out, int *flag) { /* Copy the address of the attribute */ - *(void **)attribute_val_out = attribute_val_in; + *(void **) attribute_val_out = attribute_val_in; /* Change the value */ - *(int *)attribute_val_in = *(int *)attribute_val_in + 1; + *(int *) attribute_val_in = *(int *) attribute_val_in + 1; *flag = 1; return MPI_SUCCESS; } /* Delete decrements the attribute value */ -int delete_fn( MPI_Win win, int keyval, void *attribute_val, - void *extra_state); -int delete_fn( MPI_Win win, int keyval, void *attribute_val, - void *extra_state) +int delete_fn(MPI_Win win, int keyval, void *attribute_val, void *extra_state); +int delete_fn(MPI_Win win, int keyval, void *attribute_val, void *extra_state) { - *(int *)attribute_val = *(int *)attribute_val - 1; + *(int *) attribute_val = *(int *) attribute_val - 1; return MPI_SUCCESS; } -int main( int argc, char *argv[] ) +int main(int argc, char *argv[]) { int errs = 0; int attrval; - int i, key[32], keyval, saveKeyval; + int i, key[32], keyval; MPI_Win win; - MTest_Init( &argc, &argv ); + MTest_Init(&argc, &argv); - while (MTestGetWin( &win, 0 )) { - if (win == MPI_WIN_NULL) continue; + while (MTestGetWin(&win, 0)) { + if (win == MPI_WIN_NULL) + continue; - MPI_Win_create_keyval( copy_fn, delete_fn, &keyval, (void *)0 ); - saveKeyval = keyval; /* in case we need to free explicitly */ - attrval = 1; - MPI_Win_set_attr( win, keyval, (void*)&attrval ); - /* See MPI-1, 5.7.1. Freeing the keyval does not remove it if it - is in use in an attribute */ - MPI_Win_free_keyval( &keyval ); - - /* We create some dummy keyvals here in case the same keyval - is reused */ - for (i=0; i<32; i++) { - MPI_Win_create_keyval( MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, - &key[i], (void *)0 ); - } + MPI_Win_create_keyval(copy_fn, delete_fn, &keyval, (void *) 0); + attrval = 1; + MPI_Win_set_attr(win, keyval, (void *) &attrval); + /* See MPI-1, 5.7.1. Freeing the keyval does not remove it if it + * is in use in an attribute */ + MPI_Win_free_keyval(&keyval); + + /* We create some dummy keyvals here in case the same keyval + * is reused */ + for (i = 0; i < 32; i++) { + MPI_Win_create_keyval(MPI_NULL_COPY_FN, MPI_NULL_DELETE_FN, &key[i], (void *) 0); + } MTestFreeWin(&win); - /* Check that the original attribute was freed */ - if (attrval != 0) { - errs++; - printf( "Attribute not decremented when win %s freed\n", - MTestGetWinName() ); - } - /* Free those other keyvals */ - for (i=0; i<32; i++) { - MPI_Win_free_keyval( &key[i] ); - } + /* Check that the original attribute was freed */ + if (attrval != 0) { + errs++; + printf("Attribute not decremented when win %s freed\n", MTestGetWinName()); + } + /* Free those other keyvals */ + for (i = 0; i < 32; i++) { + MPI_Win_free_keyval(&key[i]); + } } - MTest_Finalize( errs ); + MTest_Finalize(errs); MPI_Finalize(); return 0;