diff options
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)) |