OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
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
This commit is contained in:
Thomas Koenig 2005-09-05 21:13:39 +00:00 committed by Thomas Koenig
parent bf877a7649
commit a9390eaf27
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -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> 2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/23321 PR libfortran/23321

2
libgfortran/io/list_read.c
View File

@ -71,7 +71,7 @@ static int nml_read_error;
/* Storage area for values except for strings. Must be large enough /* Storage area for values except for strings. Must be large enough
to hold a complex value (two reals) of the largest kind. */ 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': \ #define CASE_DIGITS case '0': case '1': case '2': case '3': case '4': \
case '5': case '6': case '7': case '8': case '9' case '5': case '6': case '7': case '8': case '9'