summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2005-09-22 04:32:24 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2005-09-22 04:32:24 (GMT)
commitd67e59d9b22d175de5385c4dfe39915692d63101 (patch)
tree6fd8cd290b14434fd86583c3e567d21cfd93ba0a
parent34b9451f3390814125c30b33298b8f64a3a299c9 (diff)
downloadhdf5-d67e59d9b22d175de5385c4dfe39915692d63101.zip
hdf5-d67e59d9b22d175de5385c4dfe39915692d63101.tar.gz
hdf5-d67e59d9b22d175de5385c4dfe39915692d63101.tar.bz2
[svn-r11458] Purpose:
Improvement. Description: The test may hang if there are system failures that some processors are not working. Solution: Added the ALARM calls to limit all tests be done with the default alarm time. So, even if a process is hanging, the ALARM signal would terminate the process. Platforms tested: tg-login2 of NCSA. Misc. update:
-rw-r--r--testpar/t_mpi.c43
1 files changed, 30 insertions, 13 deletions
diff --git a/testpar/t_mpi.c b/testpar/t_mpi.c
index 06ccf4f..99e5c8c 100644
--- a/testpar/t_mpi.c
+++ b/testpar/t_mpi.c
@@ -943,6 +943,12 @@ main(int argc, char **argv)
fapl = H5Pcreate (H5P_FILE_ACCESS);
H5Pset_fapl_mpio(fapl, MPI_COMM_WORLD, MPI_INFO_NULL);
+ /* set alarm. */
+ ALARM_ON;
+
+ /*=======================================
+ * MPIO complicated derived datatype test
+ *=======================================*/
/* test_mpio_derived_dtype often hangs when fails.
* Do not run it if it is known NOT working unless ask to
* run explicitly by high verbose mode.
@@ -950,25 +956,25 @@ main(int argc, char **argv)
#ifdef H5_MPI_COMPLEX_DERIVED_DATATYPE_WORKS
MPI_BANNER("MPIO complicated derived datatype test...");
ret_code = test_mpio_derived_dtype(filenames[0]);
- ret_code = errors_sum(ret_code);
- if (mpi_rank==0 && ret_code > 0){
- printf("***FAILED with %d total errors\n", ret_code);
- nerrors += ret_code;
- }
#else
- if (!VERBOSE_HI){
- MPI_BANNER("MPIO complicated derived datatype test SKIPPED.");
- }else{
+ if (VERBOSE_HI){
MPI_BANNER("MPIO complicated derived datatype test...");
ret_code = test_mpio_derived_dtype(filenames[0]);
- ret_code = errors_sum(ret_code);
- if (mpi_rank==0 && ret_code > 0){
- printf("***FAILED with %d total errors\n", ret_code);
- nerrors += ret_code;
- }
+ }else{
+ MPI_BANNER("MPIO complicated derived datatype test SKIPPED.");
+ ret_code = 0; /* fake ret_code */
}
#endif
+ ret_code = errors_sum(ret_code);
+ if (mpi_rank==0 && ret_code > 0){
+ printf("***FAILED with %d total errors\n", ret_code);
+ nerrors += ret_code;
+ }
+
+ /*=======================================
+ * MPIO 1 write Many read test
+ *=======================================*/
MPI_BANNER("MPIO 1 write Many read test...");
ret_code = test_mpio_1wMr(filenames[0], USENONE);
ret_code = errors_sum(ret_code);
@@ -997,6 +1003,10 @@ main(int argc, char **argv)
}
}
+
+ /*=======================================
+ * MPIO MPIO File size range test
+ *=======================================*/
MPI_BANNER("MPIO File size range test...");
ret_code = test_mpio_gb_file(filenames[0]);
ret_code = errors_sum(ret_code);
@@ -1005,6 +1015,10 @@ main(int argc, char **argv)
nerrors += ret_code;
}
+
+ /*=======================================
+ * MPIO independent overlapping writes
+ *=======================================*/
MPI_BANNER("MPIO independent overlapping writes...");
ret_code = test_mpio_overlap_writes(filenames[0]);
ret_code = errors_sum(ret_code);
@@ -1029,6 +1043,9 @@ finish:
printf("===================================\n");
}
+ /* turn off alarm */
+ ALARM_OFF;
+
h5_cleanup(FILENAME, fapl);
H5close();