diff options
Diffstat (limited to 'fortran/testpar/ptest.F90')
-rw-r--r-- | fortran/testpar/ptest.F90 | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/fortran/testpar/ptest.F90 b/fortran/testpar/ptest.F90 index 0883ac2..9acff17 100644 --- a/fortran/testpar/ptest.F90 +++ b/fortran/testpar/ptest.F90 @@ -76,7 +76,18 @@ PROGRAM parallel_test CALL multiple_dset_write(length, do_collective(1), do_chunk(1), mpi_size, mpi_rank, ret_total_error) IF(mpi_rank==0) CALL write_test_status(ret_total_error, & 'Writing/reading several datasets (contiguous layout, independent MPI I/O)', total_error) - + ! + ! test write/read multiple hyperslab datasets + ! + DO i = 1, 2 + DO j = 1, 2 + ret_total_error = 0 + CALL pmultiple_dset_hyper_rw(do_collective(j), do_chunk(i), mpi_size, mpi_rank, ret_total_error) + IF(mpi_rank==0) CALL write_test_status(ret_total_error, & + "Writing/reading multiple datasets by hyperslab ("//TRIM(chr_chunk(i))//" layout, "& + //TRIM(chr_collective(j))//" MPI I/O)", total_error) + ENDDO + ENDDO ! ! close HDF5 interface ! |