summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-04-24 20:17:10 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-04-24 20:17:10 (GMT)
commit1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7 (patch)
treebdd5031361a61f834f2de24cd05518e895ffa9ba /fortran
parentfc769f425f3b5574eb12522bf4c7bc94f4a236ff (diff)
downloadhdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.zip
hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.gz
hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.bz2
added connector_name test
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5VLff.F902
-rw-r--r--fortran/test/vol_connector.F9012
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)