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/src | |
| parent | fc769f425f3b5574eb12522bf4c7bc94f4a236ff (diff) | |
| download | hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.zip hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.gz hdf5-1d6641ee3af65bdbe5e0f1f8fa56be8ea52dd5d7.tar.bz2 | |
added connector_name test
Diffstat (limited to 'fortran/src')
| -rw-r--r-- | fortran/src/H5VLff.F90 | 2 |
1 files changed, 1 insertions, 1 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 |