From 62520b200418a0fe365740c18da27f1b0c852315 Mon Sep 17 00:00:00 2001 From: Bud Davis Date: Fri, 11 Apr 2003 21:33:48 +0000 Subject: re PR fortran/9263 (ICE caused by invalid PARAMETER in implied DO loop) 2003-04-11 Bud Davis 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 --- libf2c/libI77/iio.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libf2c/libI77') 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 -- cgit v1.1