diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2014-02-21 16:53:33 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2014-02-21 16:53:33 (GMT) |
commit | 1162465570895657929286c8f5b3958db827833f (patch) | |
tree | 22baf039720835932492009e86166eb48ea39eb5 /fortran | |
parent | 1e36b5a348415501aa8eb992fd57c09d834900cd (diff) | |
download | hdf5-1162465570895657929286c8f5b3958db827833f.zip hdf5-1162465570895657929286c8f5b3958db827833f.tar.gz hdf5-1162465570895657929286c8f5b3958db827833f.tar.bz2 |
[svn-r24727] Description:
Revert change of sprintf -> snprintf, due to failures on Windows. We'll
need to figure out the correct course of action in the future.
Tested on:
MacOSX/64 10.9.1 (amazon) w/C++, FORTRAN
(too minor to require h5committest)
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/src/H5match_types.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/fortran/src/H5match_types.c b/fortran/src/H5match_types.c index 3ae4bdb..3fa0efc 100644 --- a/fortran/src/H5match_types.c +++ b/fortran/src/H5match_types.c @@ -395,8 +395,8 @@ int main(void) for(i=0;i<4;i++) { if( FoundIntSize[i] > 0) /* Found the integer type */ { - snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", FoundIntSize[i]); - snprintf(chrB, sizeof(chrB), "int_%d_f", FoundIntSize[i]); + sprintf(chrA, "Fortran_INTEGER_%d", FoundIntSize[i]); + sprintf(chrB, "int_%d_f", FoundIntSize[i]); writeToFiles(chrA, chrB, FoundIntSize[i], FoundIntSizeKind[i]); } else /* Did not find the integer type */ @@ -406,8 +406,8 @@ int main(void) { if( FoundIntSize[j] > 0) /* Found the next highest */ { - snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]); - snprintf(chrB, sizeof(chrB), "int_%d_f", (-1)*FoundIntSize[i]); + sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]); + sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]); writeToFiles(chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]); flag = 1; break; @@ -419,8 +419,8 @@ int main(void) { if( FoundIntSize[j] > 0) /* Found the next lowest */ { - snprintf(chrA, sizeof(chrA), "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]); - snprintf(chrB, sizeof(chrB), "int_%d_f", (-1)*FoundIntSize[i]); + sprintf(chrA, "Fortran_INTEGER_%d", (-1)*FoundIntSize[i]); + sprintf(chrB, "int_%d_f", (-1)*FoundIntSize[i]); writeToFiles(chrA, chrB, FoundIntSize[j], FoundIntSizeKind[j]); flag = 1; break; @@ -462,8 +462,8 @@ int main(void) for(i=0;i<3;i++) { if( FoundRealSize[i] > 0) /* Found the real type */ { - snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", FoundRealSize[i]); - snprintf(chrB, sizeof(chrB), "real_%d_f", FoundRealSize[i]); + sprintf(chrA, "Fortran_REAL_%d", FoundRealSize[i]); + sprintf(chrB, "real_%d_f", FoundRealSize[i]); writeFloatToFiles(chrA, chrB, FoundRealSize[i], FoundRealSizeKind[i]); } else /* Did not find the real type */ @@ -473,8 +473,8 @@ int main(void) { if( FoundRealSize[j] > 0) /* Found the next highest */ { - snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", (-1)*FoundRealSize[i]); - snprintf(chrB, sizeof(chrB), "real_%d_f", (-1)*FoundRealSize[i]); + sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); + sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); if(FoundRealSize[j]>4) { writeFloatToFiles(chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]); flag = 1; @@ -492,8 +492,8 @@ int main(void) { if( FoundRealSize[j] > 0) /* Found the next lowest */ { - snprintf(chrA, sizeof(chrA), "Fortran_REAL_%d", (-1)*FoundRealSize[i]); - snprintf(chrB, sizeof(chrB), "real_%d_f", (-1)*FoundRealSize[i]); + sprintf(chrA, "Fortran_REAL_%d", (-1)*FoundRealSize[i]); + sprintf(chrB, "real_%d_f", (-1)*FoundRealSize[i]); if(FoundRealSize[j]>4) writeFloatToFiles(chrA, chrB, FoundRealSize[j], FoundRealSizeKind[j]); /* else { */ |