diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-31 14:51:34 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2011-10-31 14:51:34 (GMT) |
| commit | bae45fe9e8ba83105321ce4088f3bba6a6b532d2 (patch) | |
| tree | 6ba4198fbd39f13a7554ef5e04ecdd917813c42f /fortran | |
| parent | fdade1b4c497703df42ed588b4016b1ed049f048 (diff) | |
| download | hdf5-bae45fe9e8ba83105321ce4088f3bba6a6b532d2.zip hdf5-bae45fe9e8ba83105321ce4088f3bba6a6b532d2.tar.gz hdf5-bae45fe9e8ba83105321ce4088f3bba6a6b532d2.tar.bz2 | |
[svn-r21694] Brought r21689 into the tunk, fixes type in H5Eset_error_c.
Tested: jam (gfortran)
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5Ef.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 64ecdc4..8c00ab7 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -298,7 +298,7 @@ nh5eset_auto2_c(int_f *printflag, hid_t_f *estack_id, H5E_auto2_t func, void *cl herr_t status = -1; if (*printflag == 1 && *estack_id == -1) - status = H5Eset_auto2(H5E_DEFAULT, H5Eprint2, stderr); + status = H5Eset_auto2(H5E_DEFAULT, (H5E_auto2_t)H5Eprint2, stderr); else if (*printflag == 1) status = H5Eset_auto2((hid_t)*estack_id, func, client_data); else if (*printflag == 0) |