diff options
Diffstat (limited to 'src/H5Smpio.c')
| -rw-r--r-- | src/H5Smpio.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/H5Smpio.c b/src/H5Smpio.c index 99c55b6..0c20ece 100644 --- a/src/H5Smpio.c +++ b/src/H5Smpio.c @@ -142,6 +142,8 @@ H5S_mpio_all_type( const H5S_t *space, size_t elmt_size, hbool_t prefer_derived_ H5_CHECK_OVERFLOW(total_bytes, hsize_t, int); if (MPI_Type_contiguous( (int)total_bytes, MPI_BYTE, new_type )) HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't create MPI contiguous type"); + if(MPI_Type_commit(new_type)) + HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't commit MPI contiguous type"); *count = 1; *extra_offset = 0; *use_view = 1; @@ -579,6 +581,8 @@ H5S_mpio_hyper_contig_type( const H5S_t *space, size_t elmt_size, hbool_t prefer H5_CHECK_OVERFLOW(total_bytes, hsize_t, int); if (MPI_Type_contiguous( (int)total_bytes, MPI_BYTE, new_type )) HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't create MPI contiguous type"); + if(MPI_Type_commit(new_type)) + HRETURN_ERROR(H5E_DATASPACE, H5E_MPI, FAIL,"couldn't commit MPI contiguous type"); *count = 1; *extra_offset = byte_offset; *use_view = 1; |