diff options
| author | Dana Robinson <43805+derobins@users.noreply.github.com> | 2023-07-27 22:28:33 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-27 22:28:33 (GMT) |
| commit | 41a6b581aef055821796fc9d31f58778dc1c4197 (patch) | |
| tree | f36f43cc54acdaeab80edd100183719402121508 /fortran/test/t.c | |
| parent | 0e82707100cf3d1b698d2ec0cad08db61d552d63 (diff) | |
| download | hdf5-41a6b581aef055821796fc9d31f58778dc1c4197.zip hdf5-41a6b581aef055821796fc9d31f58778dc1c4197.tar.gz hdf5-41a6b581aef055821796fc9d31f58778dc1c4197.tar.bz2 | |
Sync Fortran w/ develop (#3296)
Diffstat (limited to 'fortran/test/t.c')
| -rw-r--r-- | fortran/test/t.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c index bda1226..1336540 100644 --- a/fortran/test/t.c +++ b/fortran/test/t.c @@ -46,15 +46,15 @@ nh5_fixname_c(_fcd base_name, size_t_f *base_namelen, hid_t_f *fapl, _fcd full_n * Convert FORTRAN name to C name */ if (NULL == (c_base_name = (char *)HD5f2cstring(base_name, (size_t)*base_namelen))) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); if (NULL == (c_full_name = (char *)malloc((size_t)*full_namelen + 1))) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); /* * Call h5_fixname function. */ if (NULL == h5_fixname(c_base_name, (hid_t)*fapl, c_full_name, (size_t)*full_namelen + 1)) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); HD5packFstring(c_full_name, _fcdtocp(full_name), (size_t)*full_namelen); done: @@ -139,6 +139,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 */ |