diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 02:01:18 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2013-02-18 02:01:18 (GMT) |
commit | a976ca99a9de1fbe2496c23fa941b7c3e8af3967 (patch) | |
tree | b00f06e247a8c61c8a53d09a3d4201948b703c70 /fortran/test/fortranlib_test_F03.f90 | |
parent | 32da9c96aed341fa67670e84b82ca9292bd1506c (diff) | |
download | hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.zip hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.tar.gz hdf5-a976ca99a9de1fbe2496c23fa941b7c3e8af3967.tar.bz2 |
[svn-r23293] Fix for HDFFV-8268: Fortran wrapper for H5Fget_file_image function.
Tested: (jam, gnu,intel compilers)
Diffstat (limited to 'fortran/test/fortranlib_test_F03.f90')
-rw-r--r-- | fortran/test/fortranlib_test_F03.f90 | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/fortran/test/fortranlib_test_F03.f90 b/fortran/test/fortranlib_test_F03.f90 index 606b050..111d35e 100644 --- a/fortran/test/fortranlib_test_F03.f90 +++ b/fortran/test/fortranlib_test_F03.f90 @@ -163,6 +163,11 @@ PROGRAM fortranlibtest_F03 CALL obj_info(ret_total_error) CALL write_test_status(ret_total_error, ' Testing object info functions ', total_error) + ret_total_error = 0 + CALL test_get_file_image(ret_total_error) + CALL write_test_status(ret_total_error, ' Testing get file image ', total_error) + + WRITE(*,*) WRITE(*,*) ' ============================================ ' |