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

re PR libfortran/19155 ([4.0 only] blanks not treated as zeros in 'E' format read (NIST FM110.FOR))

Browse Source 
PR libfortran/19155
	* io/read.c (convert_real): strtod can set errno to EINVAL on an
	empty string, but we shouldn't have an error in that case.

From-SVN: r101128
This commit is contained in:
Francois-Xavier Coudert 2005-06-17 18:20:29 +02:00 committed by François-Xavier Coudert
parent a2eafc7685
commit 853a4203b7
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2005-06-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19155
* io/read.c (convert_real): strtod can set errno to EINVAL on an
empty string, but we shouldn't have an error in that case.
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/19216

2
libgfortran/io/read.c
View File

@ -122,7 +122,7 @@ convert_real (void *dest, const char *buffer, int length)
internal_error ("Unsupported real kind during IO");
}
if (errno != 0)
if (errno != 0 && errno != EINVAL)
{
generate_error (ERROR_READ_VALUE,
"Range error during floating point read");