2006-06-06 Janne Blomqvist <jb@gcc.gnu.org>

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

diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c
index 74a3731..bc3928a 100644 (file)
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -62,11 +62,6 @@ all_l8 (gfc_array_l8 * const restrict retarray,
   dim = (*pdim) - 1;
   rank = GFC_DESCRIPTOR_RANK (array) - 1;
 
-  /* TODO:  It should be a front end job to correctly set the strides.  */
-
-  if (array->dim[0].stride == 0)
-    array->dim[0].stride = 1;
-
   len = array->dim[dim].ubound + 1 - array->dim[dim].lbound;
   delta = array->dim[dim].stride;
 
@@ -103,9 +98,6 @@ all_l8 (gfc_array_l8 * const restrict retarray,
     }
   else
     {
-      if (retarray->dim[0].stride == 0)
-       retarray->dim[0].stride = 1;
-
       if (rank != GFC_DESCRIPTOR_RANK (retarray))
        runtime_error ("rank of return array incorrect");
     }