diff options
author | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:23:35 (GMT) |
---|---|---|
committer | Elena Pourmal <epourmal@hdfgroup.org> | 2008-05-13 18:23:35 (GMT) |
commit | ec4ae5213b66274287844b2e05340f342c7c3231 (patch) | |
tree | 1496212ce0300972a37f6cfe8146aeedf354ce67 /fortran/test/tH5G_1_8.f90 | |
parent | ea20e67829f70c4d3cb0452005bec864bfa78f8b (diff) | |
download | hdf5-ec4ae5213b66274287844b2e05340f342c7c3231.zip hdf5-ec4ae5213b66274287844b2e05340f342c7c3231.tar.gz hdf5-ec4ae5213b66274287844b2e05340f342c7c3231.tar.bz2 |
[svn-r14991] Maintenance: Fixed some bugs discovered by daily testing and by manual testing using -i8 flag
Platforms tested: linew (as for daily tests), icc and pgf90 with -i8 on kagiso; g95 has the problem
with -i8 (will be looking into the problem)
Diffstat (limited to 'fortran/test/tH5G_1_8.f90')
-rw-r--r-- | fortran/test/tH5G_1_8.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/test/tH5G_1_8.f90 b/fortran/test/tH5G_1_8.f90 index d4dd9cd..092d90d 100644 --- a/fortran/test/tH5G_1_8.f90 +++ b/fortran/test/tH5G_1_8.f90 @@ -1238,7 +1238,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) ! /* Query default group creation property settings */ CALL H5Pget_local_heap_size_hint_f(gcpl, lheap_size_hint, error) CALL check("H5Pget_local_heap_size_hint_f",error,total_error) - CALL verify("H5Pget_local_heap_size_hint_f", lheap_size_hint,0,total_error) + CALL verify("H5Pget_local_heap_size_hint_f", INT(lheap_size_hint),0,total_error) CALL H5Pget_link_phase_change_f(gcpl, max_compact, min_dense, error) CALL check("H5Pget_link_phase_change_f", error, total_error) @@ -1270,7 +1270,7 @@ SUBROUTINE lifecycle(cleanup, fapl2, total_error) CALL H5Pget_local_heap_size_hint_f(gcpl, lheap_size_hint, error) CALL check("H5Pget_local_heap_size_hint_f",error,total_error) - CALL verify("H5Pget_local_heap_size_hint_f", lheap_size_hint,LIFECYCLE_LOCAL_HEAP_SIZE_HINT,total_error) + CALL verify("H5Pget_local_heap_size_hint_f", INT(lheap_size_hint),INT(LIFECYCLE_LOCAL_HEAP_SIZE_HINT),total_error) CALL H5Pget_link_phase_change_f(gcpl, max_compact, min_dense, error) CALL check("H5Pget_link_phase_change_f", error, total_error) |