diff options
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Ff.c | 8 | ||||
| -rw-r--r-- | fortran/test/tH5L_F03.F90 | 3 |
2 files changed, 8 insertions, 3 deletions
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c index 2cb8654..189d2da 100644 --- a/fortran/src/H5Ff.c +++ b/fortran/src/H5Ff.c @@ -664,11 +664,15 @@ h5fget_fileno_c(hid_t_f *file_id, int_f *fileno) herr_t ret_value = 0; /* Return value */ /* - * Call H5Fget_filesize function + * Call H5Fget_fileno function */ if ((ret_value = H5Fget_fileno((hid_t)*file_id, &fileno_c)) < 0) HGOTO_DONE(FAIL); - *fileno = (hsize_t_f)fileno_c; + + /* XXX: This will have problems if the library fileno value doesn't fit + * into an int_f. + */ + *fileno = (int_f)fileno_c; done: return ret_value; diff --git a/fortran/test/tH5L_F03.F90 b/fortran/test/tH5L_F03.F90 index a4e960b..a02a540 100644 --- a/fortran/test/tH5L_F03.F90 +++ b/fortran/test/tH5L_F03.F90 @@ -73,7 +73,8 @@ CONTAINS INTEGER, SAVE :: count INTEGER, SAVE :: count2 -!!$ + liter_cb = 0 + !!$ iter_info *info = (iter_info *)op_data; !!$ static int count = 0; !!$ static int count2 = 0; |