diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2003-04-11 21:33:48 +0000 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2003-04-11 21:33:48 +0000 |
| commit | 62520b200418a0fe365740c18da27f1b0c852315 (patch) | |
| tree | 9447e72ba92ded418534b60dfb93b17733812cfc /libf2c | |
| parent | 2ae5ae57ba6177af4fe8ba2951e8864c6bdb7c87 (diff) | |
| download | gcc-62520b200418a0fe365740c18da27f1b0c852315.tar.gz | |
re PR fortran/9263 (ICE caused by invalid PARAMETER in implied DO loop)
2003-04-11 Bud Davis <bdavis9659@comcast.net>
PR Fortran/9263
* gcc/f/data.c (ffedata_advance_): Check initial, final and
increment values for INTEGER typeness.
PR Fortran/1832
* libf2c/libI77/iio.c (z_putc): Check for overflowing length
of output string.
* gcc/f/news.texi: Document these fixes.
PR Fortran/9263
* g77.f-torture/noncompile/9263.f: New test
PR Fortran/1832
* g77.f-torture/execute/1832.f: New test
From-SVN: r65481
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 |