From a9390eaf2709f4e1eef1b09852d428c52085ba5f Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 5 Sep 2005 21:13:39 +0000 Subject: [PATCH] list_read.c: Adjust size of of value to 32 (to hold kind=16 complex values). 2005-09-05 Thomas Koenig * io/list_read.c: Adjust size of of value to 32 (to hold kind=16 complex values). From-SVN: r103918 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/list_read.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 20239792ea4..8cc1a03e70a 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2005-09-05 Thomas Koenig + + * io/list_read.c: Adjust size of of value to 32 (to hold + kind=16 complex values). + 2005-09-04 Thomas Koenig PR libfortran/23321 diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index 661ad339a98..9d51f02b7d1 100644 --- 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' -- 2.30.2