diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 17:45:42 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-02-18 17:45:42 (GMT) |
| commit | 3a303d3dd3d3c5b065e0f72c521342b610baf555 (patch) | |
| tree | 0c9a58f8a16d63425f6342d0dba1d531a4b01f39 /fortran/src/H5_f.c | |
| parent | f1ffd2202b3cd82da53b75016281c92706dfa8d3 (diff) | |
| download | hdf5-3a303d3dd3d3c5b065e0f72c521342b610baf555.zip hdf5-3a303d3dd3d3c5b065e0f72c521342b610baf555.tar.gz hdf5-3a303d3dd3d3c5b065e0f72c521342b610baf555.tar.bz2 | |
[svn-r26211] revert ci 26204
Diffstat (limited to 'fortran/src/H5_f.c')
| -rw-r--r-- | fortran/src/H5_f.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fortran/src/H5_f.c b/fortran/src/H5_f.c index 4a5fcbc..a149109 100644 --- a/fortran/src/H5_f.c +++ b/fortran/src/H5_f.c @@ -227,6 +227,7 @@ nh5init_types_c( hid_t_f * types, hid_t_f * floatingtypes, hid_t_f * integertype if ((floatingtypes[1] = (hid_t_f)H5Tcopy(H5T_IEEE_F32LE)) < 0) return ret_value; if ((floatingtypes[2] = (hid_t_f)H5Tcopy(H5T_IEEE_F64BE)) < 0) return ret_value; if ((floatingtypes[3] = (hid_t_f)H5Tcopy(H5T_IEEE_F64LE)) < 0) return ret_value; + if ((integertypes[0] = (hid_t_f)H5Tcopy(H5T_STD_I8BE)) < 0) return ret_value; if ((integertypes[1] = (hid_t_f)H5Tcopy(H5T_STD_I8LE)) < 0) return ret_value; if ((integertypes[2] = (hid_t_f)H5Tcopy(H5T_STD_I16BE)) < 0) return ret_value; |