diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2009-08-30 09:02:01 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2009-08-30 09:02:01 +0000 |
| commit | 01d93568e892e196fbc28454f9f9e3553cbfcd7e (patch) | |
| tree | 6f3af1ff5e03befb8f48fd165af7da8a30aacf8e /libgfortran/runtime | |
| parent | 26ef2b4293ed8aa1d1cea04015d6d06dce5fd9d5 (diff) | |
| download | gcc-01d93568e892e196fbc28454f9f9e3553cbfcd7e.zip gcc-01d93568e892e196fbc28454f9f9e3553cbfcd7e.tar.gz gcc-01d93568e892e196fbc28454f9f9e3553cbfcd7e.tar.bz2 | |
pack.m4 (pack_'rtype_code`): Use count_0 for counting true values in a logical array.
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.
From-SVN: r151225
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 2d2ed76..35bfa1e 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; } |