diff options
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-12 19:27:49 +0000 |
|---|---|---|
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-12 19:27:49 +0000 |
| commit | c75dca4902ad96d90237f6ab49c368ecb1ff3e52 (patch) | |
| tree | 17933ebe7d8de121ec47c896cf51dd424e7498fd /libgfortran/io/write.c | |
| parent | 2c91fb39d3dca3aa4300047463649d5b108d28fb (diff) | |
| download | gcc-c75dca4902ad96d90237f6ab49c368ecb1ff3e52.tar.gz | |
Cleanup memsize types
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172340 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 987c3cd88a6..4733d51e882 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -1932,7 +1932,7 @@ obj_loop: { obj->ls[dim_i].idx += nml_carry ; nml_carry = 0; - if (obj->ls[dim_i].idx > (ssize_t) GFC_DESCRIPTOR_UBOUND(obj,dim_i)) + if (obj->ls[dim_i].idx > GFC_DESCRIPTOR_UBOUND(obj,dim_i)) { obj->ls[dim_i].idx = GFC_DESCRIPTOR_LBOUND(obj,dim_i); nml_carry = 1; |