summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2017-06-09 17:19:50 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2017-06-09 17:19:50 (GMT)
commit1ccdb2e23f1c55835aee315e92736c6aed06faf8 (patch)
tree177f96b435fe83a322a07684007352e4ffd4ff81
parent4242753848c44ab3b5d226e66225eac2f64db314 (diff)
downloadhdf5-1ccdb2e23f1c55835aee315e92736c6aed06faf8.zip
hdf5-1ccdb2e23f1c55835aee315e92736c6aed06faf8.tar.gz
hdf5-1ccdb2e23f1c55835aee315e92736c6aed06faf8.tar.bz2
fixed check output string to match test
-rw-r--r--fortran/test/tH5P_F03.F902
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/test/tH5P_F03.F90 b/fortran/test/tH5P_F03.F90
index 69d493b..b44540b 100644
--- a/fortran/test/tH5P_F03.F90
+++ b/fortran/test/tH5P_F03.F90
@@ -972,7 +972,7 @@ SUBROUTINE test_vds(total_error)
! Get source file name
CALL H5Pget_virtual_filename_f(dcpl, INT(i-1, size_t), SRC_FILE_LEN_EXACT, error, nsize)
- CALL check("H5Pget_virtual_count_f", error, total_error)
+ CALL check("H5Pget_virtual_filename_f", error, total_error)
IF(nsize.NE.LEN(SRC_FILE_LEN_EXACT))THEN
PRINT*,"virtual filenname size is incorrect"