diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-30 00:52:06 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-30 00:52:06 +0000 |
| commit | 7125a7691b4f17fa10acc4baff8daa573b2adcc3 (patch) | |
| tree | 6c85e2765ddadb71bd7bde22e85628df41a222a4 /libgfortran | |
| parent | 8f4b0d00c3794d3a14a63774ab1c323dbf021b16 (diff) | |
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/branches/gcc-4_4-branch@149077 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index ad129b822b1..053ccca6b90 100644 --- 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-11 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/40330 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index cf25a89fff6..964f8719f4f 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2868,7 +2868,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; } |