diff options
| author | Sean McBride <sean@rogue-research.com> | 2023-07-18 15:35:05 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2023-07-18 15:35:05 (GMT) |
| commit | 1903c4b1b0bd227b6713364792d241015b4edb5a (patch) | |
| tree | 4ec8c69091b59707f28c6cea3ee3a0b158a80b73 /fortran/src/H5Ef.c | |
| parent | aab497a6312a9d8434a7dc7b5a593713fc8fbce0 (diff) | |
| download | hdf5-1903c4b1b0bd227b6713364792d241015b4edb5a.zip hdf5-1903c4b1b0bd227b6713364792d241015b4edb5a.tar.gz hdf5-1903c4b1b0bd227b6713364792d241015b4edb5a.tar.bz2 | |
Fixed more warnings about extra semicolons (#3249)
* Require semi-colon after H5_CHECK_OVERFLOW calls
Co-authored-by: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Diffstat (limited to 'fortran/src/H5Ef.c')
| -rw-r--r-- | fortran/src/H5Ef.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c index 7685a95..7e3a25f 100644 --- a/fortran/src/H5Ef.c +++ b/fortran/src/H5Ef.c @@ -43,7 +43,7 @@ h5eclear_c(hid_t_f *estack_id) * Call H5Eclear function. */ if (H5Eclear2((hid_t)*estack_id) < 0) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); done: return ret_value; @@ -72,15 +72,15 @@ h5eprint_c1(_fcd name, int_f *namelen) int_f ret_value = 0; if (NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen))) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); if (NULL == (file = fopen(c_name, "a"))) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); /* * Call H5Eprint2 function. */ if (H5Eprint2(H5E_DEFAULT, file) < 0) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); done: if (file) @@ -115,7 +115,7 @@ h5eprint_c2(void) * Call H5Eprint2 function. */ if (H5Eprint2(H5E_DEFAULT, NULL) < 0) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); done: return ret_value; @@ -147,7 +147,7 @@ h5eget_major_c(int_f *error_no, _fcd name, size_t_f *namelen) c_name = (char *)malloc(c_namelen + 1); if (!c_name) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); /* * Call H5Eget_msg function. @@ -155,7 +155,7 @@ h5eget_major_c(int_f *error_no, _fcd name, size_t_f *namelen) H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen); HD5packFstring((char *)c_name, _fcdtocp(name), c_namelen); if (!strcmp(c_name, "Invalid major error number")) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); done: if (c_name) @@ -190,7 +190,7 @@ h5eget_minor_c(int_f *error_no, _fcd name, size_t_f *namelen) c_name = (char *)malloc(c_namelen + 1); if (!c_name) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); /* * Call H5Eget_msg function. @@ -198,7 +198,7 @@ h5eget_minor_c(int_f *error_no, _fcd name, size_t_f *namelen) H5Eget_msg((hid_t)*error_no, NULL, c_name, c_namelen); HD5packFstring((char *)c_name, _fcdtocp(name), c_namelen); if (!strcmp(c_name, "Invalid minor error number")) - HGOTO_DONE(FAIL) + HGOTO_DONE(FAIL); done: if (c_name) |