diff options
Diffstat (limited to 'libgfortran/runtime/bounds.c')
| -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; } |