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>
|
||||
|
||||
PR libfortran/38735
|
||||
|
@ -972,14 +972,14 @@ read_f (st_parameter_dt *dtp, const fnode *f, char *dest, int length)
|
||||
while (w > 0)
|
||||
{
|
||||
if (*p != ' ')
|
||||
goto bad_float;
|
||||
goto bad_float;
|
||||
p++;
|
||||
w--;
|
||||
}
|
||||
}
|
||||
else /* BZ or BN status is enabled */
|
||||
{
|
||||
while (w > 0 && (isdigit (*p) || *p == ' '))
|
||||
while (w > 0)
|
||||
{
|
||||
if (*p == ' ')
|
||||
{
|
||||
|
Loading…
Reference in New Issue
Block a user