summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2014-04-09 14:45:04 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2014-04-09 14:45:04 (GMT)
commit3677c1cc8ef2d784ba8463dec7706a042ace7d87 (patch)
treef543c2f73544d9941c1f550f54faade4b64bb6b2 /fortran
parent973421096642c197715106b26f9d858caf344800 (diff)
downloadhdf5-3677c1cc8ef2d784ba8463dec7706a042ace7d87.zip
hdf5-3677c1cc8ef2d784ba8463dec7706a042ace7d87.tar.gz
hdf5-3677c1cc8ef2d784ba8463dec7706a042ace7d87.tar.bz2
[svn-r25001] Cast as integer to verify routine to remove intel warning.
Tested: jam (intel)
Diffstat (limited to 'fortran')
-rw-r--r--fortran/test/tH5Sselect.f908
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/tH5Sselect.f90 b/fortran/test/tH5Sselect.f90
index 074b9c5..ba68d62 100644
--- a/fortran/test/tH5Sselect.f90
+++ b/fortran/test/tH5Sselect.f90
@@ -1865,8 +1865,8 @@ SUBROUTINE test_select_bounds(total_error)
CALL VERIFY("h5sget_select_bounds_f", INT(low_bounds(1)), 3, total_error)
CALL VERIFY("h5sget_select_bounds_f", INT(low_bounds(2)), 3, total_error)
- CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(1)), SPACE11_DIM1-4, total_error)
- CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(2)), SPACE11_DIM2-4, total_error)
+ CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(1)), INT(SPACE11_DIM1-4), total_error)
+ CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(2)), INT(SPACE11_DIM2-4), total_error)
! /* Set bad offset for selection */
@@ -1889,8 +1889,8 @@ SUBROUTINE test_select_bounds(total_error)
CALL VERIFY("h5sget_select_bounds_f", INT(low_bounds(1)), 5, total_error)
CALL VERIFY("h5sget_select_bounds_f", INT(low_bounds(2)), 1, total_error)
- CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(1)), SPACE11_DIM1-2, total_error)
- CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(2)), SPACE11_DIM2-6, total_error)
+ CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(1)), INT(SPACE11_DIM1-2), total_error)
+ CALL VERIFY("h5sget_select_bounds_f", INT(high_bounds(2)), INT(SPACE11_DIM2-6), total_error)
! /* Reset offset for selection */
offset(1:2) = 0