diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-10-03 00:53:21 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2012-10-03 00:53:21 (GMT) |
| commit | 3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b (patch) | |
| tree | 41023f4827cb254156451092cd4e43ab16fd85f4 /fortran/test/tH5O_F03.f90 | |
| parent | 7648354b80e5e914f99cb6dece5d38d354c5c736 (diff) | |
| download | hdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.zip hdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.tar.gz hdf5-3e59374ccd0c7cbb671dc72c34ec1a6a9123bc5b.tar.bz2 | |
[svn-r22854] Fixed issues with default 8-byte real and default 8-byte integers and the new H5O routines.
Tested: jam (gcc,intel)
Diffstat (limited to 'fortran/test/tH5O_F03.f90')
| -rw-r--r-- | fortran/test/tH5O_F03.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/fortran/test/tH5O_F03.f90 b/fortran/test/tH5O_F03.f90 index e969c4a..f060a7d 100644 --- a/fortran/test/tH5O_F03.f90 +++ b/fortran/test/tH5O_F03.f90 @@ -54,11 +54,11 @@ MODULE visit_cb ! Object visit structs TYPE, bind(c) :: obj_visit_t CHARACTER(LEN=1), DIMENSION(1:180) :: path ! Path to object - INTEGER(c_int) :: type_obj ! type of object + INTEGER :: type_obj ! type of object END TYPE obj_visit_t TYPE, bind(c) :: ovisit_ud_t - INTEGER(c_int) :: idx ! Index in object visit structure + INTEGER :: idx ! Index in object visit structure TYPE(obj_visit_t), DIMENSION(1:info_size) :: info ! Pointer to the object visit structure to use END TYPE ovisit_ud_t @@ -74,7 +74,7 @@ CONTAINS TYPE(ovisit_ud_t) :: op_data INTEGER :: len, i - INTEGER(C_INT) :: idx + INTEGER :: idx visit_obj_cb = 0 |