OSDN Git Service

* trans-array.c (set_loop_bounds): Remove dead conditions.
authormikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 25 Nov 2011 20:24:10 +0000 (20:24 +0000)
committermikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4>
Fri, 25 Nov 2011 20:24:10 +0000 (20:24 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181731 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/fortran/ChangeLog
gcc/fortran/trans-array.c

index d669f5a..4ee062c 100644 (file)
@@ -1,5 +1,9 @@
 2011-11-25  Mikael Morin  <mikael@gcc.gnu.org>
 
+       * trans-array.c (set_loop_bounds): Remove dead conditions.
+
+2011-11-25  Mikael Morin  <mikael@gcc.gnu.org>
+
        PR fortran/51250
        PR fortran/43829
        * trans-array.c (gfc_trans_create_temp_array): Get dimension from
index 943503a..ee8f896 100644 (file)
@@ -4341,9 +4341,9 @@ set_loop_bounds (gfc_loopinfo *loop)
        }
 
       /* Transform everything so we have a simple incrementing variable.  */
-      if (n < loop->dimen && integer_onep (info->stride[dim]))
+      if (integer_onep (info->stride[dim]))
        info->delta[dim] = gfc_index_zero_node;
-      else if (n < loop->dimen)
+      else
        {
          /* Set the delta for this section.  */
          info->delta[dim] = gfc_evaluate_now (loop->from[n], &loop->pre);