re PR libfortran/38772 (r143102 reveals missed error checking on floating point reads)
2009-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/38772 * io/read.c (read_f): Clean up loop conditions for BZ/BN, allowing proper digit testing. White space fix. From-SVN: r143327
This commit is contained in:
parent
1b82a0656e
commit
1a15c900e8
|
@ -1,3 +1,9 @@
|
||||||
|
2009-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR libfortran/38772
|
||||||
|
* io/read.c (read_f): Clean up loop conditions for BZ/BN,
|
||||||
|
allowing proper digit testing. White space fix.
|
||||||
|
|
||||||
2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
||||||
|
|
||||||
PR libfortran/38735
|
PR libfortran/38735
|
||||||
|
|
|
@ -972,14 +972,14 @@ read_f (st_parameter_dt *dtp, const fnode *f, char *dest, int length)
|
||||||
while (w > 0)
|
while (w > 0)
|
||||||
{
|
{
|
||||||
if (*p != ' ')
|
if (*p != ' ')
|
||||||
goto bad_float;
|
goto bad_float;
|
||||||
p++;
|
p++;
|
||||||
w--;
|
w--;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else /* BZ or BN status is enabled */
|
else /* BZ or BN status is enabled */
|
||||||
{
|
{
|
||||||
while (w > 0 && (isdigit (*p) || *p == ' '))
|
while (w > 0)
|
||||||
{
|
{
|
||||||
if (*p == ' ')
|
if (*p == ' ')
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue