diff options
| author | Dana Robinson <derobins@hdfgroup.org> | 2016-03-08 07:34:43 (GMT) |
|---|---|---|
| committer | Dana Robinson <derobins@hdfgroup.org> | 2016-03-08 07:34:43 (GMT) |
| commit | 1b7b09b08104f05a65a0269c5c88a342dba8e972 (patch) | |
| tree | e758e40e37fa8f8bcd8dc63c57b4d2fb3dac473c /fortran | |
| parent | a1035bd80624807b3ed31a67575a68f577c0e48c (diff) | |
| download | hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.zip hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.tar.gz hdf5-1b7b09b08104f05a65a0269c5c88a342dba8e972.tar.bz2 | |
[svn-r29337] Cleaning warnings in Fortran code.
Tested on: 64-bit Ubuntu 15.10 (Linux 4.2.0 x86_64) gcc 5.2.1
autotools serial w/ Fortran
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5match_types.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index f995e83..98128db 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -52,7 +52,7 @@ FILE * fort_header; void writeTypedef(const char* c_typedef, const char* c_type, int size); void writeTypedefDefault(const char* c_typedef, int size); void writeToFiles(const char* c_typedef, const char* fortran_type, const char* c_type, int size, int kind); -void writeToFilesChr(const char* c_typedef, const char* fortran_type, const char* c_type, int size, char* kind); +void writeToFilesChr(const char* c_typedef, const char* fortran_type, const char* c_type, int size, const char* kind); static void initCfile(void) @@ -140,7 +140,7 @@ void writeToFiles(const char* c_typedef, const char* fortran_type, const char* c fprintf(fort_header, " INTEGER, PARAMETER :: %s = %u\n", fortran_type, kind); fprintf(c_header, "typedef c_%s_%d %s;\n", c_typedef, size, c_type); } -void writeToFilesChr(const char* c_typedef, const char* fortran_type, const char* c_type, int size, char* kind) +void writeToFilesChr(const char* c_typedef, const char* fortran_type, const char* c_type, int size, const char* kind) { fprintf(fort_header, " INTEGER, PARAMETER :: %s = %s\n", fortran_type, kind); fprintf(c_header, "typedef c_%s_%d %s;\n", c_typedef, size, c_type); |