Made ecpglib write double with a precision of 15 digits.

Patch by Akira Kurosawa <kurosawa-akira@mxc.nes.nec.co.jp>.

diff --git a/src/interfaces/ecpg/ecpglib/execute.c b/src/interfaces/ecpg/ecpglib/execute.c
index 09e1a820d4a7b60b2097e6a90e632f53285990c4..1e3d4182bb93b5f66c67a7c0eb8a52a3c6398c77 100644 (file)
--- 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;