summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorAllen Byrne <50328838+byrnHDF@users.noreply.github.com>2022-07-26 21:45:46 (GMT)
committerGitHub <noreply@github.com>2022-07-26 21:45:46 (GMT)
commitae414872f50187e64cbd6cc8f076c22cf5df2d53 (patch)
treeb616f33f5daa89f213e7c64e04c63afde906e939 /fortran
parent213eac2588369f75a11df6bb1788dde33c4b82e2 (diff)
downloadhdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.zip
hdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.tar.gz
hdf5-ae414872f50187e64cbd6cc8f076c22cf5df2d53.tar.bz2
Develop clang 13 format (#1933)
* Update format source to clang 13 * More format changes
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Af.c12
-rw-r--r--fortran/src/H5Df.c18
-rw-r--r--fortran/src/H5Ef.c4
-rw-r--r--fortran/src/H5Ff.c12
-rw-r--r--fortran/src/H5Gf.c12
-rw-r--r--fortran/src/H5If.c2
-rw-r--r--fortran/src/H5Lf.c12
-rw-r--r--fortran/src/H5Of.c14
-rw-r--r--fortran/src/H5Pf.c28
-rw-r--r--fortran/src/H5Rf.c4
-rw-r--r--fortran/src/H5Sf.c2
-rw-r--r--fortran/src/H5Tf.c12
12 files changed, 66 insertions, 66 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index db1c040..64a972e 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -178,7 +178,7 @@ h5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
/******/
{
size_t c_bufsize;
- char * c_buf = NULL; /* Buffer to hold C string */
+ char *c_buf = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
c_bufsize = (size_t)*bufsize + 1;
@@ -465,10 +465,10 @@ h5aget_name_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_
hsize_t_f *n, _fcd name, size_t_f *size, hid_t_f *lapl_id)
/******/
{
- char * c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_obj_name = NULL; /* Buffer to hold C string */
ssize_t c_size;
size_t c_buf_size;
- char * c_buf = NULL;
+ char *c_buf = NULL;
int_f ret_value = 0; /* Return value */
/*
@@ -668,7 +668,7 @@ h5aget_info_by_idx_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, int_
hsize_t_f *data_size)
/******/
{
- char * c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_obj_name = NULL; /* Buffer to hold C string */
H5A_info_t ainfo;
int_f ret_value = 0; /* Return value */
@@ -734,8 +734,8 @@ h5aget_info_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fc
int_f *cset, hsize_t_f *data_size)
/******/
{
- char * c_obj_name = NULL; /* Buffer to hold C string */
- char * c_attr_name = NULL; /* Buffer to hold C string */
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_attr_name = NULL; /* Buffer to hold C string */
H5A_info_t ainfo;
int_f ret_value = 0; /* Return value */
diff --git a/fortran/src/H5Df.c b/fortran/src/H5Df.c
index a780683..ba3e5d4 100644
--- a/fortran/src/H5Df.c
+++ b/fortran/src/H5Df.c
@@ -532,7 +532,7 @@ h5dvlen_get_max_len_c(hid_t_f *dset_id, hid_t_f *type_id, hid_t_f *space_id, siz
hid_t c_dset_id;
hid_t c_type_id;
hid_t c_space_id;
- hvl_t * c_buf;
+ hvl_t *c_buf;
int i;
hssize_t num_elem;
herr_t status;
@@ -605,7 +605,7 @@ h5dwrite_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space
int_f *tmp;
size_t max_len;
- hvl_t * c_buf;
+ hvl_t *c_buf;
hsize_t i;
hsize_t num_elem;
@@ -681,7 +681,7 @@ h5dread_vl_integer_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
herr_t status;
size_t max_len;
- hvl_t * c_buf;
+ hvl_t *c_buf;
hsize_t i;
hssize_t num_elem;
@@ -753,10 +753,10 @@ h5dwrite_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_
hid_t c_file_space_id;
hid_t c_xfer_prp;
herr_t status;
- char * tmp, *tmp_p;
+ char *tmp, *tmp_p;
size_t max_len;
- char ** c_buf;
+ char **c_buf;
hsize_t i;
hsize_t num_elem;
@@ -844,10 +844,10 @@ h5dread_vl_string_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_i
hid_t c_file_space_id;
hid_t c_xfer_prp;
herr_t status;
- char * tmp, *tmp_p;
+ char *tmp, *tmp_p;
size_t max_len;
- char ** c_buf;
+ char **c_buf;
hsize_t i;
hsize_t num_elem;
@@ -935,7 +935,7 @@ h5dwrite_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id
real_f *tmp;
size_t max_len;
- hvl_t * c_buf;
+ hvl_t *c_buf;
hsize_t i;
hsize_t num_elem;
@@ -1011,7 +1011,7 @@ h5dread_vl_real_c(hid_t_f *dset_id, hid_t_f *mem_type_id, hid_t_f *mem_space_id,
herr_t status;
size_t max_len;
- hvl_t * c_buf;
+ hvl_t *c_buf;
hsize_t i;
hssize_t num_elem;
diff --git a/fortran/src/H5Ef.c b/fortran/src/H5Ef.c
index ec38fd7..13bd5c8 100644
--- a/fortran/src/H5Ef.c
+++ b/fortran/src/H5Ef.c
@@ -160,7 +160,7 @@ int_f
h5eget_major_c(int_f *error_no, _fcd name, size_t_f *namelen)
/******/
{
- char * c_name = NULL;
+ char *c_name = NULL;
size_t c_namelen = (size_t)*namelen;
int_f ret_value = 0;
@@ -208,7 +208,7 @@ int_f
h5eget_minor_c(int_f *error_no, _fcd name, size_t_f *namelen)
/******/
{
- char * c_name = NULL;
+ char *c_name = NULL;
size_t c_namelen = (size_t)*namelen;
int_f ret_value = 0;
diff --git a/fortran/src/H5Ff.c b/fortran/src/H5Ff.c
index 339f8b7..2cb8654 100644
--- a/fortran/src/H5Ff.c
+++ b/fortran/src/H5Ff.c
@@ -48,7 +48,7 @@ h5fcreate_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *crt_prp, hi
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
int_f c_namelen;
hid_t c_file_id;
unsigned c_access_flags;
@@ -156,7 +156,7 @@ h5fmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen, hid_t_f *file_id, hid
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
int_f c_namelen;
hid_t c_loc_id;
hid_t c_file_id;
@@ -214,7 +214,7 @@ h5funmount_c(hid_t_f *loc_id, _fcd dsetname, int_f *namelen)
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
int_f c_namelen;
hid_t c_loc_id;
htri_t status;
@@ -265,7 +265,7 @@ h5fopen_c(_fcd name, int_f *namelen, int_f *access_flags, hid_t_f *acc_prp, hid_
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
int_f c_namelen;
hid_t c_file_id;
unsigned c_access_flags;
@@ -506,7 +506,7 @@ h5fget_obj_ids_c(hid_t_f *file_id, int_f *obj_type, size_t_f *max_objs, hid_t_f
size_t u;
size_t c_max_objs;
ssize_t c_num_objs;
- hid_t * c_obj_ids;
+ hid_t *c_obj_ids;
c_file_id = (hid_t)*file_id;
c_obj_type = (unsigned)*obj_type;
@@ -578,7 +578,7 @@ int_f
h5fget_name_c(hid_t_f *obj_id, size_t_f *size, _fcd buf, size_t_f *buflen)
/******/
{
- char * c_buf = NULL; /* Buffer to hold C string */
+ char *c_buf = NULL; /* Buffer to hold C string */
ssize_t size_c = -1;
int_f ret_value = 0; /* Return value */
diff --git a/fortran/src/H5Gf.c b/fortran/src/H5Gf.c
index 0201761..7bf4529 100644
--- a/fortran/src/H5Gf.c
+++ b/fortran/src/H5Gf.c
@@ -173,9 +173,9 @@ h5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx, _f
{
H5O_info2_t oinfo;
hid_t c_loc_id = (hid_t)*loc_id;
- char * c_name = NULL;
+ char *c_name = NULL;
size_t c_obj_namelen;
- char * c_obj_name = NULL;
+ char *c_obj_name = NULL;
hsize_t c_idx = (hsize_t)*idx;
hid_t gid = (-1); /* Temporary group ID */
int ret_value = -1;
@@ -251,7 +251,7 @@ int_f
h5gn_members_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
/******/
{
- char * c_name = NULL;
+ char *c_name = NULL;
H5G_info_t ginfo;
int ret_value = -1;
@@ -750,7 +750,7 @@ int_f
h5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize, _fcd comment)
/******/
{
- char * c_name = NULL, *c_comment = NULL;
+ char *c_name = NULL, *c_comment = NULL;
size_t c_bufsize;
int ret_value = -1;
@@ -954,7 +954,7 @@ h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
int_f *max_corder, int_f *mounted)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold group name C string */
+ char *c_group_name = NULL; /* Buffer to hold group name C string */
int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
/*
@@ -1024,7 +1024,7 @@ h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold group name C string */
+ char *c_group_name = NULL; /* Buffer to hold group name C string */
int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
/*
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c
index c51f3ec..2305550 100644
--- a/fortran/src/H5If.c
+++ b/fortran/src/H5If.c
@@ -89,7 +89,7 @@ h5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size
hid_t c_obj_id;
ssize_t c_size;
size_t c_buf_size;
- char * c_buf = NULL;
+ char *c_buf = NULL;
/*
* Allocate buffer to hold name of an object
diff --git a/fortran/src/H5Lf.c b/fortran/src/H5Lf.c
index b71ab45..461e39d 100644
--- a/fortran/src/H5Lf.c
+++ b/fortran/src/H5Lf.c
@@ -342,7 +342,7 @@ h5ldelete_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, in
int_f *order, hsize_t_f *n, hid_t_f *lapl_id)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold C string */
+ char *c_group_name = NULL; /* Buffer to hold C string */
H5_index_t c_index_field;
H5_iter_order_t c_order;
int_f ret_value = 0; /* Return value */
@@ -455,7 +455,7 @@ h5lget_info_c(hid_t_f *link_loc_id, _fcd link_name, size_t_f *link_namelen, int_
int_f *corder_valid, int_f *link_type, H5O_token_t *token, size_t_f *val_size, hid_t_f *lapl_id)
/******/
{
- char * c_link_name = NULL; /* Buffer to hold C string */
+ char *c_link_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
H5L_info2_t link_buff;
@@ -524,7 +524,7 @@ h5lget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
int_f *cset, H5O_token_t *token, size_t_f *val_size, hid_t_f *lapl_id)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold C string */
+ char *c_group_name = NULL; /* Buffer to hold C string */
H5_index_t c_index_field;
H5_iter_order_t c_order;
int_f ret_value = 0; /* Return value */
@@ -698,8 +698,8 @@ h5lget_name_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
int_f *order, hsize_t_f *n, size_t_f *size, _fcd name, hid_t_f *lapl_id)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold C string */
- char * c_name = NULL; /* Buffer to hold C string */
+ char *c_group_name = NULL; /* Buffer to hold C string */
+ char *c_name = NULL; /* Buffer to hold C string */
size_t c_size;
ssize_t c_size_link;
int_f ret_value = 0; /* Return value */
@@ -1039,7 +1039,7 @@ h5literate_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, int_f *index
int_f ret_value = -1; /* Return value */
herr_t func_ret_value; /* H5Linterate return value */
hsize_t idx_c = 0;
- char * c_name = NULL; /* Buffer to hold C string */
+ char *c_name = NULL; /* Buffer to hold C string */
/*
* Convert FORTRAN name to C name
diff --git a/fortran/src/H5Of.c b/fortran/src/H5Of.c
index 269e37e..6a3c530 100644
--- a/fortran/src/H5Of.c
+++ b/fortran/src/H5Of.c
@@ -308,7 +308,7 @@ h5oget_info_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *namelen, hid_t_f *la
H5O_info_t_f *object_info, int_f *fields)
/******/
{
- char * c_name = NULL; /* Buffer to hold C string */
+ char *c_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
H5O_info2_t Oinfo;
@@ -358,7 +358,7 @@ h5oget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *namelen, int_f
hsize_t_f *n, hid_t_f *lapl_id, H5O_info_t_f *object_info, int_f *fields)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold C string */
+ char *c_group_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
H5O_info2_t Oinfo;
H5_index_t c_index_field;
@@ -512,7 +512,7 @@ h5ovisit_by_name_c(hid_t_f *loc_id, _fcd object_name, size_t_f *namelen, int_f *
{
int_f ret_value = -1; /* Return value */
herr_t func_ret_value; /* H5Linterate return value */
- char * c_object_name = NULL; /* Buffer to hold C string */
+ char *c_object_name = NULL; /* Buffer to hold C string */
/*
* Convert FORTRAN name to C name
@@ -758,7 +758,7 @@ h5oopen_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, int_
hsize_t_f *n, hid_t_f *obj_id, hid_t_f *lapl_id)
/******/
{
- char * c_group_name = NULL; /* Buffer to hold C string */
+ char *c_group_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0;
H5_index_t c_index_type;
H5_iter_order_t c_order;
@@ -807,7 +807,7 @@ int_f
h5oget_comment_c(hid_t_f *object_id, _fcd comment, size_t_f *commentsize, hssize_t_f *bufsize)
/******/
{
- char * c_comment = NULL; /* Buffer to hold C string */
+ char *c_comment = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
size_t c_commentsize;
@@ -864,8 +864,8 @@ h5oget_comment_by_name_c(hid_t_f *loc_id, _fcd name, size_t_f *name_size, _fcd c
size_t_f *bufsize, hid_t_f *lapl_id)
/******/
{
- char * c_comment = NULL; /* Buffer to hold C string */
- char * c_name = NULL; /* Buffer to hold C string */
+ char *c_comment = NULL; /* Buffer to hold C string */
+ char *c_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
ssize_t c_bufsize;
size_t c_commentsize;
diff --git a/fortran/src/H5Pf.c b/fortran/src/H5Pf.c
index ab09ab9..876457f 100644
--- a/fortran/src/H5Pf.c
+++ b/fortran/src/H5Pf.c
@@ -1438,8 +1438,8 @@ h5pset_fapl_split_c(hid_t_f *prp_id, int_f *meta_len, _fcd meta_ext, hid_t_f *me
hid_t c_meta_plist;
hid_t c_raw_plist;
herr_t ret = -1;
- char * c_meta_ext;
- char * c_raw_ext;
+ char *c_meta_ext;
+ char *c_raw_ext;
c_meta_ext = (char *)HD5f2cstring(meta_ext, (size_t)*meta_len);
if (c_meta_ext == NULL)
@@ -1817,7 +1817,7 @@ h5pget_filter_c(hid_t_f *prp_id, int_f *filter_number, int_f *flags, size_t_f *c
size_t c_cd_nelmts = 0;
H5Z_filter_t c_filter;
unsigned int *c_cd_values = NULL;
- char * c_name = NULL;
+ char *c_name = NULL;
unsigned i;
int ret_value = -1;
@@ -1885,7 +1885,7 @@ h5pset_external_c(hid_t_f *prp_id, _fcd name, int_f *namelen, off_t_f *offset, h
hid_t c_prp_id;
herr_t ret;
hsize_t c_bytes;
- char * c_name;
+ char *c_name;
size_t c_namelen = (size_t)*namelen;
off_t c_offset;
c_bytes = (hsize_t)*bytes;
@@ -1982,7 +1982,7 @@ h5pget_external_c(hid_t_f *prp_id, int_f *idx, size_t_f *name_size, _fcd name, o
unsigned c_idx;
herr_t status;
size_t c_namelen;
- char * c_name = NULL;
+ char *c_name = NULL;
off_t c_offset;
hsize_t size;
@@ -2859,7 +2859,7 @@ h5pexist_c(hid_t_f *cls, _fcd name, int_f *name_len)
{
int_f ret_value = -1;
hid_t c_class;
- char * c_name;
+ char *c_name;
htri_t status;
c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
@@ -2941,7 +2941,7 @@ h5pget_size_c(hid_t_f *plist, _fcd name, int_f *name_len, size_t_f *size)
{
int_f ret_value = -1;
hid_t c_plist;
- char * c_name;
+ char *c_name;
size_t c_size;
c_name = (char *)HD5f2cstring(name, (size_t)*name_len);
@@ -3537,11 +3537,11 @@ h5pset_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd m
hid_t c_prp_id;
H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
hid_t c_memb_fapl[H5FD_MEM_NTYPES];
- char * c_memb_name[H5FD_MEM_NTYPES];
+ char *c_memb_name[H5FD_MEM_NTYPES];
haddr_t c_memb_addr[H5FD_MEM_NTYPES];
hbool_t relax;
herr_t status;
- char * tmp, *tmp_p, *tmp_pp;
+ char *tmp, *tmp_p, *tmp_pp;
int i;
int c_lenmax;
long double tmp_max_addr;
@@ -3670,11 +3670,11 @@ h5pget_fapl_multi_c(hid_t_f *prp_id, int_f *memb_map, hid_t_f *memb_fapl, _fcd m
hid_t c_prp_id;
H5FD_mem_t c_memb_map[H5FD_MEM_NTYPES];
hid_t c_memb_fapl[H5FD_MEM_NTYPES];
- char * c_memb_name[H5FD_MEM_NTYPES];
+ char *c_memb_name[H5FD_MEM_NTYPES];
haddr_t c_memb_addr[H5FD_MEM_NTYPES];
hbool_t relax;
herr_t status;
- char * tmp, *tmp_p;
+ char *tmp, *tmp_p;
int i;
size_t c_lenmax;
size_t length = 0;
@@ -3843,7 +3843,7 @@ h5pget_filter_by_id_c(hid_t_f *prp_id, int_f *filter_id, int_f *flags, size_t_f
size_t c_cd_nelmts = (size_t)*cd_nelmts;
size_t c_cd_nelmts_in = (size_t)*cd_nelmts;
unsigned int *c_cd_values = NULL;
- char * c_name = NULL;
+ char *c_name = NULL;
unsigned i;
int_f ret_value = -1;
@@ -4628,7 +4628,7 @@ int_f
h5pget_data_transform_c(hid_t_f *plist_id, _fcd expression, int_f *expression_len, size_t_f *size)
/******/
{
- char * c_expression = NULL; /* Buffer to hold C string */
+ char *c_expression = NULL; /* Buffer to hold C string */
size_t c_expression_len = (size_t)*expression_len + 1;
ssize_t ret;
int_f ret_value = 0;
@@ -5370,7 +5370,7 @@ h5pget_file_image_c(hid_t_f *fapl_id, void **buf_ptr, size_t_f *buf_len_ptr)
{
int ret_value = -1;
size_t c_buf_len_ptr;
- void * c_buf_ptr = NULL;
+ void *c_buf_ptr = NULL;
c_buf_len_ptr = (size_t)*buf_len_ptr;
diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c
index 88aa158..1814020 100644
--- a/fortran/src/H5Rf.c
+++ b/fortran/src/H5Rf.c
@@ -48,7 +48,7 @@ int_f
h5rcreate_region_c(int_f *ref, hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *space_id)
/******/
{
- char * c_name = NULL;
+ char *c_name = NULL;
hdset_reg_ref_t ref_c;
int_f ret_value = 0;
@@ -311,7 +311,7 @@ h5rget_name_ptr_c(hid_t_f *loc_id, int_f *ref_type, void *ref, _fcd name, size_t
int_f ret_value = -1;
ssize_t c_size;
size_t c_bufsize;
- char * c_buf = NULL; /* Buffer to hold C string */
+ char *c_buf = NULL; /* Buffer to hold C string */
c_bufsize = (size_t)*name_len + 1;
/*
diff --git a/fortran/src/H5Sf.c b/fortran/src/H5Sf.c
index ea42a31..3c6832d 100644
--- a/fortran/src/H5Sf.c
+++ b/fortran/src/H5Sf.c
@@ -1250,7 +1250,7 @@ h5sselect_elements_c(hid_t_f *space_id, int_f *op, size_t_f *nelements, hsize_t_
int rank;
size_t i;
int j;
- hsize_t * c_coord;
+ hsize_t *c_coord;
size_t c_nelements;
c_op = (H5S_seloper_t)*op;
diff --git a/fortran/src/H5Tf.c b/fortran/src/H5Tf.c
index f3016f1..d9f75d9 100644
--- a/fortran/src/H5Tf.c
+++ b/fortran/src/H5Tf.c
@@ -1297,7 +1297,7 @@ h5tget_member_name_c(hid_t_f *type_id, int_f *idx, _fcd member_name, int_f *name
int ret_value = -1;
hid_t c_type_id;
unsigned c_index;
- char * c_name;
+ char *c_name;
c_type_id = *type_id;
c_index = (unsigned)*idx;
@@ -1616,7 +1616,7 @@ h5tinsert_c(hid_t_f *type_id, _fcd name, int_f *namelen, size_t_f *offset, hid_t
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
herr_t error;
c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
@@ -1774,7 +1774,7 @@ h5tenum_insert_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
herr_t error;
int_f c_value;
@@ -1820,7 +1820,7 @@ h5tenum_nameof_c(hid_t_f *type_id, int_f *value, _fcd name, size_t_f *namelen)
{
int ret_value = -1;
hid_t c_type_id;
- char * c_name;
+ char *c_name;
size_t c_namelen;
herr_t error;
int_f c_value;
@@ -1864,7 +1864,7 @@ h5tenum_valueof_c(hid_t_f *type_id, _fcd name, int_f *namelen, int_f *value)
/******/
{
int ret_value = -1;
- char * c_name;
+ char *c_name;
herr_t error;
c_name = (char *)HD5f2cstring(name, (size_t)*namelen);
if (c_name == NULL)
@@ -1943,7 +1943,7 @@ h5tset_tag_c(hid_t_f *type_id, _fcd tag, int_f *namelen)
{
int ret_value = -1;
herr_t status;
- char * c_tag;
+ char *c_tag;
c_tag = (char *)HD5f2cstring(tag, (size_t)*namelen);