diff options
Diffstat (limited to 'libf2c')
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/iio.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index be091247888..81741ddbe14 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +2003-04-11 Bud Davis <bdavis9659@comcast.net> + + PR Fortran/1832 + * libf2c/libI77/iio.c (z_putc): Check for overflowing length + of output string. + 2003-03-24 Bud Davis <bdavis9659@comcast.net> PR fortran/10197 diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c index 69f215425db..940cbf82f91 100644 --- a/libf2c/libI77/iio.c +++ b/libf2c/libI77/iio.c @@ -21,7 +21,7 @@ z_getc (void) void z_putc (int c) { - if (f__icptr < f__icend && f__recpos++ < f__svic->icirlen) + if (f__recpos++ < f__svic->icirlen && f__icptr < f__icend) *f__icptr++ = c; } int |