2011-08-28 Thomas Koenig <tkoenig@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / generated / iall_i8.c

diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 74ae1b5..2c5aa09 100644 (file)
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -128,7 +128,7 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
       count[n] = 0;
       dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n);
       if (extent[n] <= 0)
-       len = 0;
+       return;
     }
 
   base = array->data;