diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-06-15 13:56:20 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2016-06-15 13:56:20 (GMT) |
commit | 0c2964383b43ee81be6119fefd9fccb07b0de9b1 (patch) | |
tree | facd4c6e361f4de5620262c172391389fd3ac89d /fortran/test/tH5D.F90 | |
parent | d3396a79532601bf22e385f94b12e55dfb2c3bd0 (diff) | |
download | hdf5-0c2964383b43ee81be6119fefd9fccb07b0de9b1.zip hdf5-0c2964383b43ee81be6119fefd9fccb07b0de9b1.tar.gz hdf5-0c2964383b43ee81be6119fefd9fccb07b0de9b1.tar.bz2 |
[svn-r30078] Fixed -- HDFFV-9675 Removed unused variables in Fortran Library.
Tested Jelly.
Diffstat (limited to 'fortran/test/tH5D.F90')
-rw-r--r-- | fortran/test/tH5D.F90 | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/fortran/test/tH5D.F90 b/fortran/test/tH5D.F90 index 849f5eb..183d969 100644 --- a/fortran/test/tH5D.F90 +++ b/fortran/test/tH5D.F90 @@ -529,7 +529,7 @@ CONTAINS INTEGER(hid_t) :: file, fcpl, dataset, space INTEGER :: i, j, n, ios - INTEGER(hsize_t), DIMENSION(1:2) :: dims + INTEGER(hsize_t), DIMENSION(1:2) :: dims INTEGER(haddr_t) :: offset INTEGER, DIMENSION(1:dset_dim1,1:dset_dim2), TARGET :: rdata, data_in INTEGER :: error @@ -622,6 +622,11 @@ CONTAINS END DO CLOSE(10) + + IF(cleanup) CALL h5_cleanup_f(fix_filename, H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) + IF(cleanup) CALL h5_cleanup_f(filename, H5P_DEFAULT_F, error) + CALL check("h5_cleanup_f", error, total_error) END SUBROUTINE test_userblock_offset |