diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2006-10-12 03:59:18 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2006-10-12 03:59:18 (GMT) |
| commit | 65a1c88821f60afd477a64e81564f33d14e9e671 (patch) | |
| tree | 9badae16a867c73523803cc8043a0526cdfd68ce /fortran/src/H5Ef.c | |
| parent | e065eee4a8932e6c09557bc539d6674138e9d7fe (diff) | |
| download | hdf5-65a1c88821f60afd477a64e81564f33d14e9e671.zip hdf5-65a1c88821f60afd477a64e81564f33d14e9e671.tar.gz hdf5-65a1c88821f60afd477a64e81564f33d14e9e671.tar.bz2 | |
[svn-r12752] Descripton: This is a port to G95 compiler for MAC OSX and AIX 5.2
Previous implementation failed to compile on MAC OS X Tiger 10.4 and AIX 5.2
In previous implementation, each overloaded Fortran function called the same
C function. Since declaration of parameters in INTERFACE block for
C Function differed, some compilers issued warnings but g95 on MAC and AIX
failed to compile.
Solution: Add C wrappers corresponding to each overloaded Fortran function
to call C stub function. This fix should also reduce number of warnings
on IRIX systems.
Platforms tested: MAC OS and AIX 5.2 (copper) with g95;
sol (with Sun compilers), heping with PGI compilers
Diffstat (limited to 'fortran/src/H5Ef.c')
| -rw-r--r-- | fortran/src/H5Ef.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 3c47ee2..c8540a4 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -62,7 +62,7 @@ nh5eprint_c1(_fcd name, int_f* namelen) herr_t status; FILE * file; char* c_name; - int c_namelen; + size_t c_namelen; c_namelen = *namelen; c_name = (char*)HD5f2cstring(name, c_namelen); if(c_name == NULL) return ret_val; @@ -121,7 +121,7 @@ int_f nh5eget_major_c(int_f* error_no, _fcd name, size_t_f* namelen) { int ret_val = -1; - char *c_name; + char *c_name = NULL; size_t c_namelen; hid_t c_error_no; c_error_no = (hid_t)*error_no; @@ -155,7 +155,7 @@ int_f nh5eget_minor_c(int_f* error_no, _fcd name, size_t_f* namelen) { int ret_val = -1; - char *c_name; + char *c_name = NULL; size_t c_namelen; hid_t c_error_no; c_error_no = (hid_t)*error_no; @@ -188,7 +188,7 @@ int_f nh5eset_auto_c(int_f* printflag) { int ret_val = -1; - herr_t status; + herr_t status = -1; if (*printflag == 1) status = H5Eset_auto_stack(H5E_DEFAULT, (H5E_auto_stack_t)H5Eprint, stderr); |