From 777b8ed94b1099e1cfe6a46ffb5290803d2f2c48 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Fri, 19 Jan 2001 10:15:15 -0500 Subject: [svn-r3306] Purpose: Bug fix. Description: While building on T3E, I noticed several compiler warnings about variable being used before its value was defined. Solution: Fixed. Platforms tested: T3E (mcurie.nersc.gov) --- fortran/src/H5Pf.c | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c index ca2e270..d145427 100644 --- a/fortran/src/H5Pf.c +++ b/fortran/src/H5Pf.c @@ -775,7 +775,7 @@ nh5pset_stdio_c (hid_t_f *prp_id) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; /* * Call H5Pset_stdio function. */ @@ -803,7 +803,7 @@ nh5pget_stdio_c (hid_t_f *prp_id, int_f* io) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; /* * Call H5Pget_stdio function. */ @@ -830,7 +830,7 @@ nh5pset_sec2_c (hid_t_f *prp_id) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; /* * Call H5Pset_sec2 function. */ @@ -858,7 +858,7 @@ nh5pget_sec2_c (hid_t_f *prp_id, int_f* sec2) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; /* * Call H5Pget_sec2 function. */ @@ -949,7 +949,7 @@ nh5pset_core_c (hid_t_f *prp_id, size_t_f* increment) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; size_t c_increment; c_increment = (size_t)*increment; /* @@ -978,8 +978,8 @@ nh5pget_core_c (hid_t_f *prp_id, size_t_f* increment) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; - size_t c_increment; + herr_t ret = -1; + size_t c_increment = 0; /* * Call H5Pset_increment function. */ @@ -1009,7 +1009,7 @@ nh5pset_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist ) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; hsize_t c_memb_size; hid_t c_memb_plist; c_memb_size =(hsize_t) *memb_size; @@ -1042,9 +1042,9 @@ nh5pget_family_c(hid_t_f *prp_id, hsize_t_f* memb_size, hid_t_f* memb_plist) { int ret_value = -1; hid_t c_prp_id; - herr_t ret; - hsize_t c_memb_size; - hid_t c_memb_plist; + herr_t ret = -1; + hsize_t c_memb_size = 0; + hid_t c_memb_plist = -1; /* * Call H5Pget_family function. */ @@ -1163,7 +1163,7 @@ nh5pset_split_c(hid_t_f *prp_id, int_f* meta_len, _fcd meta_ext, hid_t_f* meta_p hid_t c_prp_id; hid_t c_meta_plist; hid_t c_raw_plist; - herr_t ret; + herr_t ret = -1; char* c_meta_ext; char* c_raw_ext; c_meta_ext = (char *)HD5f2cstring(meta_ext, (int)*meta_len); @@ -1207,12 +1207,13 @@ nh5pget_split_c(hid_t_f *prp_id, size_t_f* meta_ext_size , _fcd meta_ext, hid_t_ { int ret_value = -1; hid_t c_prp_id; - herr_t ret; + herr_t ret = -1; size_t c_meta_ext_size, c_raw_ext_size; - hid_t c_meta_plist, c_raw_plist; + hid_t c_meta_plist = -1; + hid_t c_raw_plist = -1; - char* c_meta_ext; - char* c_raw_ext; + char* c_meta_ext = NULL; + char* c_raw_ext = NULL; c_meta_ext_size = (size_t) *meta_ext_size; c_raw_ext_size = (size_t) *raw_ext_size; -- cgit v0.12