This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
p6367Patch, Fortran, 3.3+, applied] Fix PR libf2c/6367
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- To: gcc-patches at gcc dot gnu dot org
- Date: Sat, 31 Aug 2002 16:45:15 +0200
- Subject: p6367Patch, Fortran, 3.3+, applied] Fix PR libf2c/6367
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
The below patch fixes GNATS entry libf2c/6367 (erroneously indicated as
fortran/6367 in the patch's ChangeLog entry - sorry).
Bootstrap and make -k check-g77 on powerpc-unknown-linux-gnu.
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Maintainer, GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
Join GNU Fortran 95: http://g95.sourceforge.net/ (under construction)
2002-08-31 Toon Moene <toon@moene.indiv.nluug.nl>
PR fortran/6367
* rsne.c (x_rsne): Use local variable no2 to count further
list elements to read.
*** rsne.c.orig Tue Jun 4 04:24:26 2002
--- rsne.c Sat Aug 31 14:46:57 2002
*************** have_amp:
*** 516,525 ****
if (f__lcount > 0)
{
! no1 = (ivae - iva) / size;
! if (no1 > f__lcount)
! no1 = f__lcount;
! if ((k = l_read (&no1, vaddr + iva, size, type)))
return k;
! iva += no1 * dn0->delta;
}
}
--- 516,525 ----
if (f__lcount > 0)
{
! ftnint no2 = (ivae - iva) / size;
! if (no2 > f__lcount)
! no2 = f__lcount;
! if ((k = l_read (&no2, vaddr + iva, size, type)))
return k;
! iva += no2 * dn0->delta;
}
}