summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2001-01-19 15:15:15 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2001-01-19 15:15:15 (GMT)
commit777b8ed94b1099e1cfe6a46ffb5290803d2f2c48 (patch)
tree54266d52ffc5b4c519b7afee098118bfb460d405 /fortran/src
parentca5e928635765b1b652b889dfbb0fb043c25da82 (diff)
downloadhdf5-777b8ed94b1099e1cfe6a46ffb5290803d2f2c48.zip
hdf5-777b8ed94b1099e1cfe6a46ffb5290803d2f2c48.tar.gz
hdf5-777b8ed94b1099e1cfe6a46ffb5290803d2f2c48.tar.bz2
[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)
Diffstat (limited to 'fortran/src')
-rw-r--r--fortran/src/H5Pf.c33
1 files 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;