summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorDana Robinson <derobins@hdfgroup.org>2016-03-08 07:34:43 (GMT)
committerDana Robinson <derobins@hdfgroup.org>2016-03-08 07:34:43 (GMT)
commit1b7b09b08104f05a65a0269c5c88a342dba8e972 (patch)
treee758e40e37fa8f8bcd8dc63c57b4d2fb3dac473c /fortran/src
parenta1035bd80624807b3ed31a67575a68f577c0e48c (diff)
downloadhdf5-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/src')
-rw-r--r--fortran/src/H5match_types.c4
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);