Made ecpglib write double with a precision of 15 digits.

Michael Meskes · Michael Meskes · commit e9a1a0d00bd2 · 2011-07-18T16:34:24.000+02:00
Patch by Akira Kurosawa &lt;kurosawa-akira@mxc.nes.nec.co.jp&gt;.
diff --git a/src/interfaces/ecpg/ecpglib/execute.c b/src/interfaces/ecpg/ecpglib/execute.c
@@ -672,12 +672,12 @@ ECPGstore_input(const int lineno, const bool force_indicator, const struct varia
 					strcpy(mallocedval, "array [");
 
 					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, "]");
 				}
 				else
-					sprintf(mallocedval, "%.14g", *((float *) var->value));
+					sprintf(mallocedval, "%.15g", *((float *) var->value));
 
 				*tobeinserted_p = mallocedval;
 				*malloced_p = true;
@@ -692,12 +692,12 @@ ECPGstore_input(const int lineno, const bool force_indicator, const struct varia
 					strcpy(mallocedval, "array [");
 
 					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, "]");
 				}
 				else
-					sprintf(mallocedval, "%.14g", *((double *) var->value));
+					sprintf(mallocedval, "%.15g", *((double *) var->value));
 
 				*tobeinserted_p = mallocedval;
 				*malloced_p = true;
