diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-09 14:41:17 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-03-09 14:41:17 +0000 |
| commit | 04b98fd2ed2305e477e2511fc5f4a07e440cf71b (patch) | |
| tree | 1618576efa6cabe6dfe75dbdbe9586fc3f6b7482 /libgfortran/io/io.h | |
| parent | 2f9b99e6c664ac542529117b198b6ebc1a56cdf0 (diff) | |
| download | gcc-04b98fd2ed2305e477e2511fc5f4a07e440cf71b.zip gcc-04b98fd2ed2305e477e2511fc5f4a07e440cf71b.tar.gz gcc-04b98fd2ed2305e477e2511fc5f4a07e440cf71b.tar.bz2 | |
re PR fortran/43265 (No EOF condition if reading with '(x)' from an empty file)
2010-03-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/43265
* io/read.c: Include fbuf.h and unix.h to enable lower level I/O for
read_x. (read_x): Replace the use of read_sf with equivalent lower level
I/O, eliminating unneeded code and handling EOF and EOR conditions.
* io/io.h: Revise prototype for read_sf.
* io/transfer.c (read_sf): Delete no_error parameter and all uses of it.
(read_block_form): Likewise.
(next_record_r): Delete wrong code call to hit_eof.
From-SVN: r157310
Diffstat (limited to 'libgfortran/io/io.h')
| -rw-r--r-- | libgfortran/io/io.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/io.h b/libgfortran/io/io.h index b24f810..8f482e6 100644 --- a/libgfortran/io/io.h +++ b/libgfortran/io/io.h @@ -642,7 +642,7 @@ internal_proto(type_name); extern void * read_block_form (st_parameter_dt *, int *); internal_proto(read_block_form); -extern char *read_sf (st_parameter_dt *, int *, int); +extern char *read_sf (st_parameter_dt *, int *); internal_proto(read_sf); extern void *write_block (st_parameter_dt *, int); |