diff options
| author | Tobias Burnus <burnus@net-b.de> | 2013-03-11 19:55:18 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2013-03-11 19:55:18 +0100 |
| commit | 43b594b4c21ef51f56f95e29f4187db2a5841e9c (patch) | |
| tree | c9d8fbc071b373386a30bfa36260a856ead02e93 /libgfortran/io/transfer.c | |
| parent | 87f56a65e85ff100e1a813c2bd9c22df615013cd (diff) | |
| download | gcc-43b594b4c21ef51f56f95e29f4187db2a5841e9c.zip gcc-43b594b4c21ef51f56f95e29f4187db2a5841e9c.tar.gz gcc-43b594b4c21ef51f56f95e29f4187db2a5841e9c.tar.bz2 | |
transfer.c (read_block_direct): Correct condition.
2013-03-11 Tobias Burnus <burnus@net-b.de>
* io/transfer.c (read_block_direct): Correct condition.
* intrinsics/execute_command_line.c (execute_command_line):
Remove dead code for the HAVE_FORK case.
From-SVN: r196603
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 515c34f..d97a325 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -641,7 +641,7 @@ read_block_direct (st_parameter_dt *dtp, void *buf, size_t nbytes) have_read_subrecord = sread (dtp->u.p.current_unit->s, buf + have_read_record, to_read_subrecord); - if (unlikely (have_read_subrecord) < 0) + if (unlikely (have_read_subrecord < 0)) { generate_error (&dtp->common, LIBERROR_OS, NULL); return; |