summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2014-02-21 16:53:33 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2014-02-21 16:53:33 (GMT)
commit1162465570895657929286c8f5b3958db827833f (patch)
tree22baf039720835932492009e86166eb48ea39eb5 /fortran
parent1e36b5a348415501aa8eb992fd57c09d834900cd (diff)
downloadhdf5-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.c24
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 { */