diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2011-08-18 21:39:51 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2011-08-18 21:39:51 (GMT) |
| commit | 90b220cbd058af97b4d5436e0f4299393c96418e (patch) | |
| tree | 0aaf3fa5801f1772b7f750c91a73af09cb46130c /fortran | |
| parent | a5522454a560673856ef525066da5e8f5a90b9a9 (diff) | |
| download | hdf5-90b220cbd058af97b4d5436e0f4299393c96418e.zip hdf5-90b220cbd058af97b4d5436e0f4299393c96418e.tar.gz hdf5-90b220cbd058af97b4d5436e0f4299393c96418e.tar.bz2 | |
[svn-r21259] Bug fix: Compilation failed for these two examples due to the wrong type of constant.
Changed constant 0 to 0_size_t to use the correct type in the h5tinsert_f subroutine.
Platfomr tested: Elena's mac air with gfortran 4.6
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/examples/compound_fortran2003.f90 | 2 | ||||
| -rw-r--r-- | fortran/examples/nested_derived_type.f90 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/fortran/examples/compound_fortran2003.f90 b/fortran/examples/compound_fortran2003.f90 index 579be61..a55d1a6 100644 --- a/fortran/examples/compound_fortran2003.f90 +++ b/fortran/examples/compound_fortran2003.f90 @@ -186,7 +186,7 @@ PROGRAM main ! CALL H5Tcreate_f(H5T_COMPOUND_F, H5OFFSETOF(C_LOC(s3(1)),C_LOC(s3(2))),s3_tid, hdferr) - CALL H5Tinsert_f(s3_tid, "b_name", 0, h5kind_to_type(r_k4,H5_REAL_KIND), hdferr) + CALL H5Tinsert_f(s3_tid, "b_name", 0_size_t, h5kind_to_type(r_k4,H5_REAL_KIND), hdferr) ! ! Read field b from s1 dataset. Field in the file is found by its name. ! diff --git a/fortran/examples/nested_derived_type.f90 b/fortran/examples/nested_derived_type.f90 index b79c208..f806110 100644 --- a/fortran/examples/nested_derived_type.f90 +++ b/fortran/examples/nested_derived_type.f90 @@ -190,7 +190,7 @@ PROGRAM main ! CALL H5Tcreate_f(H5T_COMPOUND_F, H5OFFSETOF(C_LOC(s3(1)),C_LOC(s3(2))),s3_tid, hdferr) - CALL H5Tinsert_f(s3_tid, "b_name", 0, h5kind_to_type(r_k4,H5_REAL_KIND), hdferr) + CALL H5Tinsert_f(s3_tid, "b_name", 0_size_t, h5kind_to_type(r_k4,H5_REAL_KIND), hdferr) ! ! Read field b from s1 dataset. Field in the file is found by its name. ! |