diff options
Diffstat (limited to 'fortran/test/tH5F_F03.F90')
-rw-r--r-- | fortran/test/tH5F_F03.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5F_F03.F90 b/fortran/test/tH5F_F03.F90 index 9e23d19..e70c1aa 100644 --- a/fortran/test/tH5F_F03.F90 +++ b/fortran/test/tH5F_F03.F90 @@ -1,7 +1,7 @@ -!****h* root/fortran/test/tH5F_F03.f90 +!****h* root/fortran/test/tH5F_F03 ! ! NAME -! tH5F_F03.f90 +! tH5F_F03.F90 ! ! FUNCTION ! Test FORTRAN HDF5 H5F APIs which are dependent on FORTRAN 2003 @@ -62,7 +62,7 @@ SUBROUTINE test_get_file_image(total_error) INTEGER(hid_t) :: dset_id = -1 ! Dataset identifier INTEGER(hid_t) :: space_id = -1 ! Dataspace identifier INTEGER(hsize_t), DIMENSION(1:2) :: dims ! Dataset dimensions - INTEGER(size_t) :: itmp_a, itmp_b ! General purpose integers + INTEGER(size_t) :: itmp_a ! General purpose integer INTEGER(size_t) :: image_size ! Size of image TYPE(C_PTR) :: f_ptr ! Pointer INTEGER(hid_t) :: fapl ! File access property |