mirror of
https://github.com/HDFGroup/hdf5.git
synced 2026-09-25 04:09:44 +03:00
Fix resource leak in Subfiling example programs and tests (#5617)
This commit is contained in:
@@ -314,6 +314,7 @@ subfiling_write_custom(hid_t fapl_id, int mpi_size, int mpi_rank)
|
||||
|
||||
cleanup(EXAMPLE_FILE2, subfiling_fapl);
|
||||
|
||||
H5Pclose(subf_config.ioc_fapl_id);
|
||||
H5Pclose(subfiling_fapl);
|
||||
}
|
||||
|
||||
@@ -484,6 +485,7 @@ subfiling_write_precreate(hid_t fapl_id, int mpi_size, int mpi_rank)
|
||||
|
||||
cleanup(EXAMPLE_FILE3, subfiling_fapl);
|
||||
|
||||
H5Pclose(subf_config.ioc_fapl_id);
|
||||
H5Pclose(subfiling_fapl);
|
||||
}
|
||||
|
||||
|
||||
@@ -290,6 +290,7 @@ CONTAINS
|
||||
|
||||
CALL cleanup(EXAMPLE_FILE, subfiling_fapl)
|
||||
|
||||
CALL H5Pclose_f(subf_config%ioc_fapl_id, status)
|
||||
CALL H5Pclose_f(subfiling_fapl, status)
|
||||
|
||||
END SUBROUTINE subfiling_write_custom
|
||||
@@ -457,6 +458,7 @@ CONTAINS
|
||||
|
||||
CALL cleanup(EXAMPLE_FILE, subfiling_fapl)
|
||||
|
||||
CALL H5Pclose_f(subf_config%ioc_fapl_id, status)
|
||||
CALL H5Pclose_f(subfiling_fapl, status)
|
||||
|
||||
END SUBROUTINE subfiling_write_precreate
|
||||
|
||||
Reference in New Issue
Block a user