list_read.c: Adjust size of of value to 32 (to hold kind=16 complex values).

2005-09-05  Thomas Koenig  <Thomas.Koenig@online.de>

	* io/list_read.c:  Adjust size of of value to 32 (to hold
	kind=16 complex values).

From-SVN: r103918

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 20239792ea4020a28536a9ad733960731f9ddbf7..8cc1a03e70a78ae993e4043372b8f6a216f7229c 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-05  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * io/list_read.c:  Adjust size of of value to 32 (to hold
+       kind=16 complex values).
+
 2005-09-04  Thomas Koenig  <Thomas.Koenig@online.de>
 
        PR libfortran/23321

diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c
index 661ad339a986dad12011347bd7994bbea548bd2a..9d51f02b7d19c4741d0f0dba73197cf9dd4a5c88 100644 (file)
--- a/libgfortran/io/list_read.c
+++ b/libgfortran/io/list_read.c
@@ -71,7 +71,7 @@ static int nml_read_error;
 /* Storage area for values except for strings.  Must be large enough
    to hold a complex value (two reals) of the largest kind.  */
 
-static char value[20];
+static char value[32];
 
 #define CASE_DIGITS   case '0': case '1': case '2': case '3': case '4': \
                       case '5': case '6': case '7': case '8': case '9'