diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-06-11 19:28:10 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-06-11 19:28:10 (GMT) |
| commit | 893641990a23adae72df309d601416169b9e848c (patch) | |
| tree | bb110850da33b0eff77d4fe463370cbd59545c39 /fortran/test/vol_connector.F90 | |
| parent | 2c7924311198802b688e2270041cfbd472b8e0b2 (diff) | |
| download | hdf5-893641990a23adae72df309d601416169b9e848c.zip hdf5-893641990a23adae72df309d601416169b9e848c.tar.gz hdf5-893641990a23adae72df309d601416169b9e848c.tar.bz2 | |
move the vol_info to an optional parameter
Diffstat (limited to 'fortran/test/vol_connector.F90')
| -rw-r--r-- | fortran/test/vol_connector.F90 | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/fortran/test/vol_connector.F90 b/fortran/test/vol_connector.F90 index c2ee6dd..62e3f8d 100644 --- a/fortran/test/vol_connector.F90 +++ b/fortran/test/vol_connector.F90 @@ -188,23 +188,21 @@ CONTAINS CALL check("H5Pcreate_f",error,total_error) f_ptr = C_NULL_PTR - CALL H5Pset_vol_f(fapl_id, vol_id, f_ptr, error) + CALL H5Pset_vol_f(fapl_id, vol_id, error) CALL check("H5Pset_vol_f",error,total_error) CALL H5Pget_vol_id_f(fapl_id, vol_id_out, error) CALL check("H5Pget_vol_id_f",error,total_error) CALL VERIFY("H5Pget_vol_id_f", vol_id_out, vol_id, total_error) -#if 0 - CALL H5Pcreate_f(H5P_FILE_ACCESS_F, under_fapl, error) - CALL check("H5Pcreate_f",error,total_error) - f_ptr = C_LOC(under_fapl) - CALL H5Pset_vol_f(fapl_id, vol_id, f_ptr, error) + + f_ptr = C_NULL_PTR + CALL H5Pset_vol_f(fapl_id, vol_id, error, f_ptr) CALL check("H5Pset_vol_f",error,total_error) CALL H5Pget_vol_id_f(fapl_id, vol_id_out, error) CALL check("H5Pget_vol_id_f",error,total_error) CALL VERIFY("H5Pget_vol_id_f", vol_id_out, vol_id, total_error) -#endif + CALL H5VLget_connector_id_f(NATIVE_VOL_CONNECTOR_NAME, vol_id_out, error) CALL check("H5VLget_connector_id_f",error,total_error) CALL VERIFY("H5VLget_connector_id_f", vol_id_out, vol_id, total_error) |