From 43b594b4c21ef51f56f95e29f4187db2a5841e9c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 11 Mar 2013 19:55:18 +0100 Subject: transfer.c (read_block_direct): Correct condition. 2013-03-11 Tobias Burnus * 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 --- libgfortran/io/transfer.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libgfortran/io/transfer.c') 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; -- cgit v1.1