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/libI77 | |
parent | 2ae5ae57ba6177af4fe8ba2951e8864c6bdb7c87 (diff) | |
download | gcc-62520b200418a0fe365740c18da27f1b0c852315.zip gcc-62520b200418a0fe365740c18da27f1b0c852315.tar.gz gcc-62520b200418a0fe365740c18da27f1b0c852315.tar.bz2 |
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/libI77')
-rw-r--r-- | libf2c/libI77/iio.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libf2c/libI77/iio.c b/libf2c/libI77/iio.c index 69f2154..940cbf8 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 |