From 9124030f911f002bd49ec8bccd4c051df410cc72 Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Fri, 9 Dec 2005 11:18:05 -0500 Subject: [svn-r11779] Purpose: Bug fix Description: Change unsigned index variable to signed index variable (again), to fix error introduced with last Windows warnings cleanup. Platforms tested: Linux 2.4 (heping) w/FORTRAN Too minor to require h5committest --- fortran/src/H5Sf.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c index f37e9c0..a64573e 100644 --- a/fortran/src/H5Sf.c +++ b/fortran/src/H5Sf.c @@ -321,7 +321,7 @@ nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint, hsize_t c_num_points; hsize_t c_startpoint,* c_buf; int rank; - hsize_t i; + hssize_t i; c_space_id = *space_id; c_num_points = (hsize_t)* numpoints; @@ -334,7 +334,7 @@ nh5sget_select_elem_pointlist_c( hid_t_f *space_id ,hsize_t_f * startpoint, if (!c_buf) return ret_value; ret_value = H5Sget_select_elem_pointlist(c_space_id, c_startpoint, c_num_points, c_buf); - for (i = c_num_points*rank-1; i >= 0; i--) { + for (i = (c_num_points*rank)-1; i >= 0; i--) { buf[i] = (hsize_t_f)(c_buf[i]+1); } -- cgit v0.12