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/tH5F_F03.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/tH5F_F03.F90')
| -rw-r--r-- | fortran/test/tH5F_F03.F90 | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/fortran/test/tH5F_F03.F90 b/fortran/test/tH5F_F03.F90 index e70c1aa..0f08257 100644 --- a/fortran/test/tH5F_F03.F90 +++ b/fortran/test/tH5F_F03.F90 @@ -57,7 +57,8 @@ SUBROUTINE test_get_file_image(total_error) CHARACTER(kind=c_char), ALLOCATABLE, DIMENSION(:), TARGET :: image_ptr ! Image from h5fget_file_image_f INTEGER, DIMENSION(1:100), TARGET :: data ! Write data - INTEGER :: i, file_sz + INTEGER :: file_sz + INTEGER(size_t) :: i INTEGER(hid_t) :: file_id = -1 ! File identifier INTEGER(hid_t) :: dset_id = -1 ! Dataset identifier INTEGER(hid_t) :: space_id = -1 ! Dataspace identifier @@ -92,7 +93,7 @@ SUBROUTINE test_get_file_image(total_error) ! Write some data to the data set DO i = 1, 100 - data(i) = i + data(i) = INT(i) ENDDO f_ptr = C_LOC(data(1)) |