Made ecpglib write double with a precision of 15 digits.
Patch by Akira Kurosawa <kurosawa-akira@mxc.nes.nec.co.jp>.
This commit is contained in:
parent
821c07244a
commit
1a02ef3c5c
@ -681,12 +681,12 @@ ecpg_store_input(const int lineno, const bool force_indicator, const struct vari
|
|||||||
strcpy(mallocedval, "array [");
|
strcpy(mallocedval, "array [");
|
||||||
|
|
||||||
for (element = 0; element < asize; element++)
|
for (element = 0; element < asize; element++)
|
||||||
sprintf(mallocedval + strlen(mallocedval), "%.14g,", ((float *) var->value)[element]);
|
sprintf(mallocedval + strlen(mallocedval), "%.15g,", ((float *) var->value)[element]);
|
||||||
|
|
||||||
strcpy(mallocedval + strlen(mallocedval) - 1, "]");
|
strcpy(mallocedval + strlen(mallocedval) - 1, "]");
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
sprintf(mallocedval, "%.14g", *((float *) var->value));
|
sprintf(mallocedval, "%.15g", *((float *) var->value));
|
||||||
|
|
||||||
*tobeinserted_p = mallocedval;
|
*tobeinserted_p = mallocedval;
|
||||||
break;
|
break;
|
||||||
@ -700,12 +700,12 @@ ecpg_store_input(const int lineno, const bool force_indicator, const struct vari
|
|||||||
strcpy(mallocedval, "array [");
|
strcpy(mallocedval, "array [");
|
||||||
|
|
||||||
for (element = 0; element < asize; element++)
|
for (element = 0; element < asize; element++)
|
||||||
sprintf(mallocedval + strlen(mallocedval), "%.14g,", ((double *) var->value)[element]);
|
sprintf(mallocedval + strlen(mallocedval), "%.15g,", ((double *) var->value)[element]);
|
||||||
|
|
||||||
strcpy(mallocedval + strlen(mallocedval) - 1, "]");
|
strcpy(mallocedval + strlen(mallocedval) - 1, "]");
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
sprintf(mallocedval, "%.14g", *((double *) var->value));
|
sprintf(mallocedval, "%.15g", *((double *) var->value));
|
||||||
|
|
||||||
*tobeinserted_p = mallocedval;
|
*tobeinserted_p = mallocedval;
|
||||||
break;
|
break;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user