This is the mail archive of the
gcc-cvs@gcc.gnu.org
mailing list for the GCC project.
r157527 - in /trunk/libgfortran: ChangeLog io/i...
- From: jvdelisle at gcc dot gnu dot org
- To: gcc-cvs at gcc dot gnu dot org
- Date: Thu, 18 Mar 2010 02:38:18 -0000
- Subject: r157527 - in /trunk/libgfortran: ChangeLog io/i...
Author: jvdelisle
Date: Thu Mar 18 02:38:17 2010
New Revision: 157527
URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=157527
Log:
2010-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43265
* io/io.h: Delete prototype for read_sf, making it static.
* io/read.c (read_x): Modify to call hit_eof if PAD="no".
* io/transfer.c (read_sf_internal): New static function extracted from
read_sf for use on internal units only. Handle empty string case.
(read_sf): New factoring of this function, make it static. Add special
conditions for EOF based on ADVANCE="no", PAD="no", and whether any
bytes have been previously read from the record.
(read_block_form): Modify to call read_sf or read_sf_internal.
(next_record_r): Add a done flag similar to next_record_w. Call hit_eof
if internal array unit next record returns finished, meaning an EOF was
found and not done, ie not the last record expected. For external
units call hit_eof if item_count is 1 or there are no pending spaces.
(next_record): Update call to next_record_r.
Modified:
trunk/libgfortran/ChangeLog
trunk/libgfortran/io/io.h
trunk/libgfortran/io/read.c
trunk/libgfortran/io/transfer.c