diff options
| author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-30 09:02:01 +0000 |
|---|---|---|
| committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-30 09:02:01 +0000 |
| commit | 4055b3674a094901edee337be5e2001c274f2845 (patch) | |
| tree | 6f3af1ff5e03befb8f48fd165af7da8a30aacf8e /libgfortran/runtime | |
| parent | c557b81edd3c8fcb8f44ca7a2180309917116a17 (diff) | |
| download | gcc-4055b3674a094901edee337be5e2001c274f2845.tar.gz | |
2009-08-30 Thomas Koenig <tkoenig@gcc.gnu.org>
* m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true
values in a logical array. Mark bounds checking tests as
unlikely.
* intrinsics/pack_generic.c (pack_internal): Likewise.
* runtime/bounds.c (count_0): Fix off-by-one error in detecting
empty arrays.
* generated/pack_c4.c: Regenerated.
* generated/pack_c8.c: Regenerated.
* generated/pack_c10.c: Regenerated.
* generated/pack_c16.c: Regenerated.
* generated/pack_i1.c: Regenerated.
* generated/pack_i16.c: Regenerated.
* generated/pack_i2.c: Regenerated.
* generated/pack_i4.c: Regenerated.
* generated/pack_i8.c: Regenerated.
* generated/pack_r4.c: Regenerated.
* generated/pack_r8.c: Regenerated.
* generated/pack_r10.c: Regenerated.
* generated/pack_r16.c: Regenerated.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151225 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
| -rw-r--r-- | libgfortran/runtime/bounds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c index 2d2ed76e6b8..35bfa1e2a46 100644 --- a/libgfortran/runtime/bounds.c +++ b/libgfortran/runtime/bounds.c @@ -237,7 +237,7 @@ index_type count_0 (const gfc_array_l1 * array) extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); count[n] = 0; - if (extent[n] < 0) + if (extent[n] <= 0) return 0; } |