diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-08 14:01:29 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-02-08 14:01:29 (GMT) |
commit | c418bc964d20d4603eaa830051bfab8ebed0f55c (patch) | |
tree | 95c56a32f100fa7e8b4d3cce210a655f9b25b795 /fortran/test/fortranlib_test_F03.F90 | |
parent | 48bebcc39ef565796356c159d16f09bfb0efba4d (diff) | |
download | hdf5-c418bc964d20d4603eaa830051bfab8ebed0f55c.zip hdf5-c418bc964d20d4603eaa830051bfab8ebed0f55c.tar.gz hdf5-c418bc964d20d4603eaa830051bfab8ebed0f55c.tar.bz2 |
[svn-r29062] HDFFV-9564: Implement VDS Fortran wrappers.
Tested: h5committest.new
Diffstat (limited to 'fortran/test/fortranlib_test_F03.F90')
-rw-r--r-- | fortran/test/fortranlib_test_F03.F90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test_F03.F90 b/fortran/test/fortranlib_test_F03.F90 index 5b386b9..070cd73 100644 --- a/fortran/test/fortranlib_test_F03.F90 +++ b/fortran/test/fortranlib_test_F03.F90 @@ -174,6 +174,14 @@ PROGRAM fortranlibtest_F03 CALL test_get_file_image(ret_total_error) CALL write_test_status(ret_total_error, ' Testing get file image ', total_error) +! write(*,*) +! write(*,*) '=========================================' +! write(*,*) 'Testing VDS ' +! write(*,*) '=========================================' + + ret_total_error = 0 + CALL test_vds(ret_total_error) + CALL write_test_status(ret_total_error, ' Testing vds ', total_error) WRITE(*,*) |