summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2005-12-09 16:18:05 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2005-12-09 16:18:05 (GMT)
commit9124030f911f002bd49ec8bccd4c051df410cc72 (patch)
tree9c2b7a83bd1acdd899f878d23e5f83bdda02203c /fortran/src
parent4d6d659c41fac755be1f77ccf853228097d15ec3 (diff)
downloadhdf5-9124030f911f002bd49ec8bccd4c051df410cc72.zip
hdf5-9124030f911f002bd49ec8bccd4c051df410cc72.tar.gz
hdf5-9124030f911f002bd49ec8bccd4c051df410cc72.tar.bz2
[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
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Sf.c4
1 files 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);
}