diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2011-04-12 22:27:49 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2011-04-12 22:27:49 +0300 |
| commit | 44720bef9d5a11cf39c1eabbeb2c0739d0504ef8 (patch) | |
| tree | 17933ebe7d8de121ec47c896cf51dd424e7498fd /libgfortran/io/write.c | |
| parent | 99ee02511431124acbfded6350ce5f857664560d (diff) | |
| download | gcc-44720bef9d5a11cf39c1eabbeb2c0739d0504ef8.zip gcc-44720bef9d5a11cf39c1eabbeb2c0739d0504ef8.tar.gz gcc-44720bef9d5a11cf39c1eabbeb2c0739d0504ef8.tar.bz2 | |
Cleanup memsize types
From-SVN: r172340
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 987c3cd..4733d51 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; |