diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-04-24 20:17:10 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-04-24 20:17:10 (GMT) |
| commit | 1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7 (patch) | |
| tree | bdd5031361a61f834f2de24cd05518e895ffa9ba /fortran | |
| parent | fc769f425f3b5574eb12522bf4c7bc94f4a236ff (diff) | |
| download | hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.zip hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.gz hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.bz2 | |
added connector_name test
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5VLff.F90 | 2 | ||||
| -rw-r--r-- | fortran/test/vol_connector.F90 | 12 |
2 files changed, 11 insertions, 3 deletions
diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90 index 5185c22..e3469fb 100644 --- a/fortran/src/H5VLff.F90 +++ b/fortran/src/H5VLff.F90 @@ -242,7 +242,7 @@ CONTAINS IF(INT(H5VLget_connector_name(obj_id, c_name, l), SIZE_T).LT.0)THEN hdferr = H5I_INVALID_HID_F ELSE - PRINT*,c_name + PRINT*,"C_NAME", c_name CALL HD5c2fstring(name,c_name,LEN(name)) PRINT*,"name", name ENDIF diff --git a/fortran/test/vol_connector.F90 b/fortran/test/vol_connector.F90 index 8d3653c..7810c97 100644 --- a/fortran/test/vol_connector.F90 +++ b/fortran/test/vol_connector.F90 @@ -58,8 +58,8 @@ CONTAINS CHARACTER(LEN=64) :: name INTEGER(SIZE_T) :: name_len INTEGER :: cmp = -1 - CHARACTER(LEN=12) :: filename = "h5null.posix" - INTEGER(HID_T) :: file_id +! CHARACTER(LEN=12) :: filename = "h5null.posix" +! INTEGER(HID_T) :: file_id ! The null VOL connector should not be registered at the start of the test CALL H5VLis_connector_registered_f( NULL_VOL_CONNECTOR_NAME, is_registered, error) @@ -78,6 +78,14 @@ CONTAINS CALL H5VLget_connector_id_f(NULL_VOL_CONNECTOR_NAME, vol_id_out, error) CALL check("H5VLget_connector_id_f",error,total_error) + PRINT*,vol_id_out + + CALL H5VLget_connector_name_f(vol_id_out, name, error, name_len) + CALL check("H5VLget_connector_name_f",error,total_error) + + ! CALL H5VLget_connector_name_f(vol_id_out, name, error) + ! CALL check("H5VLget_connector_name_f",error,total_error) + CALL H5VLcmp_connector_cls_f( cmp, vol_id_out, vol_id, error) CALL check("H5VLcmp_connector_cls_f",error, total_error) CALL VERIFY("H5VLcmp_connector_cls_f", cmp, 0, total_error) |