summaryrefslogtreecommitdiffstats
path: root/fortran/test/t.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/test/t.c')
-rw-r--r--fortran/test/t.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c
index b89e8ae..6519a2e 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -49,7 +49,7 @@ nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_n
*/
if (NULL == (c_base_name = (char *)HD5f2cstring(base_name, (size_t)*base_namelen)))
HGOTO_DONE(FAIL)
- if (NULL == (c_full_name = (char *)HDmalloc((size_t)*full_namelen + 1)))
+ if (NULL == (c_full_name = (char *)malloc((size_t)*full_namelen + 1)))
HGOTO_DONE(FAIL)
/*
@@ -61,9 +61,9 @@ nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_n
done:
if (c_base_name)
- HDfree(c_base_name);
+ free(c_base_name);
if (c_full_name)
- HDfree(c_full_name);
+ free(c_full_name);
return ret_value;
}
@@ -112,7 +112,7 @@ nh5_cleanup_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl)
DONE:
if (NULL != c_base_name[0])
- HDfree(c_base_name[0]);
+ free(c_base_name[0]);
return ret_value;
}
@@ -130,7 +130,7 @@ DONE:
void
nh5_exit_c(int_f *status)
{
- HDexit((int)*status);
+ exit((int)*status);
} /* h5_exit_c */
/*----------------------------------------------------------------------------
@@ -147,6 +147,6 @@ void
nh5_env_nocleanup_c(int_f *status)
{
*status = (int_f)0;
- if (HDgetenv(HDF5_NOCLEANUP))
+ if (getenv(HDF5_NOCLEANUP))
*status = (int_f)1;
} /* h5_env_nocleanup_c */