Daily bump.

[pf3gnuchains/gcc-fork.git] / libgfortran / runtime / bounds.c

diff --git a/libgfortran/runtime/bounds.c b/libgfortran/runtime/bounds.c
index 2d2ed76..35bfa1e 100644 (file)
--- 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;
     }