mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-01-18 15:15:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

fixed check output string to match test

Browse Source
This commit is contained in:
M. Scot Breitenfeld 2017-06-09 12:19:50 -05:00
parent 4242753848
commit 1ccdb2e23f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/test/tH5P_F03.F90
View File

@ -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"