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 | |
| 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')
| -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; |