diff options
| author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2022-08-23 15:48:14 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-08-23 15:48:14 (GMT) |
| commit | f020d129b2ed173c8d0075d670214440013d7daf (patch) | |
| tree | d5bc621f4469e0ee66f99c8d89f6de0813fc0a73 /fortran/src/H5Ff.c | |
| parent | 21ec3378558cdc642ff49963c13ca18d8e49349c (diff) | |
| download | hdf5-f020d129b2ed173c8d0075d670214440013d7daf.zip hdf5-f020d129b2ed173c8d0075d670214440013d7daf.tar.gz hdf5-f020d129b2ed173c8d0075d670214440013d7daf.tar.bz2 | |
Corrects more Fortran warnings (#2059)
* Moves -Wunused-dummy-arguments to the developer warnings since this
generates a lot of spurious, unfixable noise due to things like
callback wrappers
* Changes the return cast in h5fget_fileno_c, fixes a comment, and comment
on potential badness
* Initializes a variable in tH5L_F03.F90 to quiet a 'maybe
uninitialized' warning
Diffstat (limited to 'fortran/src/H5Ff.c')
| -rw-r--r-- | fortran/src/H5Ff.c | 8 |
1 files changed, 6 insertions, 2 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; |