diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2011-02-17 22:55:45 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2011-02-17 22:55:45 (GMT) |
commit | a05e9f4c43d7cc8a14d76e990e4f4c858a9c200b (patch) | |
tree | 3ee2605f5b3ae2c76865192ce24b33a82e3b26dd /testpar/t_file.c | |
parent | 7941ab984320b9064b7602cc7e29837c983b2fd4 (diff) | |
download | hdf5-a05e9f4c43d7cc8a14d76e990e4f4c858a9c200b.zip hdf5-a05e9f4c43d7cc8a14d76e990e4f4c858a9c200b.tar.gz hdf5-a05e9f4c43d7cc8a14d76e990e4f4c858a9c200b.tar.bz2 |
[svn-r20120] Description:
Bring r20119 from trunk to 1.8 branch:
Clean up MPI resource leaks in parallel tests, along with a bunch of
compiler warnings.
Tested on:
FreeBSD/32 6.3 (duty) in debug mode
FreeBSD/64 6.3 (liberty) w/C++ & FORTRAN, in debug mode
Linux/32 2.6 (jam) w/PGI compilers, w/default API=1.8.x,
w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (amani) w/Intel compilers, w/default API=1.6.x,
w/C++ & FORTRAN, in production mode
Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN,
w/szip filter, w/threadsafe, in production mode
Linux/PPC 2.6 (heiwa) w/C++ & FORTRAN, w/threadsafe, in debug mode
Linux/64-amd64 2.6 (abe) w/parallel, w/FORTRAN, in debug mode
Mac OS X/32 10.6.6 (amazon) in debug mode
Mac OS X/32 10.6.6 (amazon) w/C++ & FORTRAN, w/threadsafe,
in production mode
Diffstat (limited to 'testpar/t_file.c')
-rw-r--r-- | testpar/t_file.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testpar/t_file.c b/testpar/t_file.c index ff983a9..5cd3e9d 100644 --- a/testpar/t_file.c +++ b/testpar/t_file.c @@ -44,7 +44,7 @@ test_split_comm_access(void) herr_t ret; /* generic return value */ const char *filename; - filename = GetTestParameters(); + filename = (const char *)GetTestParameters(); if (VERBOSE_MED) printf("Split Communicator access test on file %s\n", filename); @@ -53,7 +53,7 @@ test_split_comm_access(void) MPI_Comm_size(MPI_COMM_WORLD,&mpi_size); MPI_Comm_rank(MPI_COMM_WORLD,&mpi_rank); is_old = mpi_rank%2; - mrc = MPI_Comm_split (MPI_COMM_WORLD, is_old, mpi_rank, &comm); + mrc = MPI_Comm_split(MPI_COMM_WORLD, is_old, mpi_rank, &comm); VRFY((mrc==MPI_SUCCESS), ""); MPI_Comm_size(comm,&newprocs); MPI_Comm_rank(comm,&newrank); @@ -89,6 +89,8 @@ test_split_comm_access(void) /*VRFY((mrc==MPI_SUCCESS), ""); */ } } + mrc = MPI_Comm_free(&comm); + VRFY((mrc==MPI_SUCCESS), "MPI_Comm_free succeeded"); mrc = MPI_Barrier(MPI_COMM_WORLD); VRFY((mrc==MPI_SUCCESS), "final MPI_Barrier succeeded"); } |