2009-06-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR libfortran/40576
	* io/transfer.c (sset): Adjust exit condition for loop.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149075 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 1a6aa80..dda90a6 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libfortran/40576
+       * io/transfer.c (sset): Adjust exit condition for loop.
+
 2009-06-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libfortran/40508

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 585ae43..4ad1cf0 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/libgfortran/io/transfer.c
@@ -2867,7 +2867,7 @@ sset (stream * s, int c, ssize_t nbyte)
     {
       trans = (bytes_left < WRITE_CHUNK) ? bytes_left : WRITE_CHUNK;
       trans = swrite (s, p, trans);
-      if (trans < 0)
+      if (trans <= 0)
        return trans;
       bytes_left -= trans;
     }