summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2011-08-18 21:39:51 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2011-08-18 21:39:51 (GMT)
commit90b220cbd058af97b4d5436e0f4299393c96418e (patch)
tree0aaf3fa5801f1772b7f750c91a73af09cb46130c /fortran
parenta5522454a560673856ef525066da5e8f5a90b9a9 (diff)
downloadhdf5-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.f902
-rw-r--r--fortran/examples/nested_derived_type.f902
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.
!