This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, libgfortran] Fix bug triggered by NIST fm908.for - x-formattingbeyond eor during read
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: Paul Thomas <paulthomas2 at wanadoo dot fr>
- Cc: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Sun, 10 Jul 2005 23:17:15 +0200
- Subject: Re: [Patch, libgfortran] Fix bug triggered by NIST fm908.for - x-formattingbeyond eor during read
- References: <42D18DE5.7060008@wanadoo.fr>
Paul Thomas wrote:
> --- 767,775 ----
> int n;
>
> n = f->u.n;
> ! if (f->format == FMT_X)
> ! n = (n > (int)current_unit->bytes_left)
> ! ? (int)current_unit->bytes_left : n;
Any reason not to use MIN? Otherwise ok.
> 2005-07-10 Paul Thomas <pault@gcc.gnu.org>
>
> * read.c (read_complex): Prevent X formatting during reads
> from going beyond EOR to fix NIST fm908.for failure.
>
> 2005-07-10 Paul Thomas <pault@gcc.gnu.org>
>
> * gfortran.dg/past_eor.f90: New.