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

libgfortran/ChangeLog

+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.
+
 2013-02-21  Janne Blomqvist  <jb@gcc.gnu.org>
 
 	PR libfortran/30162

libgfortran/intrinsics/execute_command_line.c

@@ -94,8 +94,10 @@ execute_command_line (const char *command, bool wait, int *exitstat,
 
       if (res == -1)
 	set_cmdstat (cmdstat, EXEC_SYSTEMFAILED);
+#ifndef HAVE_FORK
       else if (!wait)
 	set_cmdstat (cmdstat, EXEC_SYNCHRONOUS);
+#endif
       else
 	set_cmdstat (cmdstat, EXEC_NOERROR);
 

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;