trans-array.c (set_loop_bounds): Allow non-array-section to be chosen using the strid...

	* trans-array.c (set_loop_bounds): Allow non-array-section to be
	chosen using the stride and lower bound criteria.

From-SVN: r190097

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5f3038a97975d375cc268348368de2289915fdd1..ce97f6864ae2a3d59b7781cf6b8eee951b041140 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-02  Mikael Morin  <mikael@gcc.gnu.org>
+
+       * trans-array.c (set_loop_bounds): Allow non-array-section to be
+       chosen using the stride and lower bound criteria.
+
 2012-08-02  Mikael Morin  <mikael@gcc.gnu.org>
 
        * trans-array.c (set_loop_bounds): Remove useless dimension check.

diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c
index feb35df9c3ffe294924407765509033f53f65543..b799e2411636baf85409a723f2f550b9affe10f2 100644 (file)
--- a/gcc/fortran/trans-array.c
+++ b/gcc/fortran/trans-array.c
@@ -4444,22 +4444,11 @@ set_loop_bounds (gfc_loopinfo *loop)
              continue;
            }
 
-         /* TODO: Pick the best bound if we have a choice between a
-            function and something else.  */
-         if (ss_type == GFC_SS_FUNCTION)
-           {
-             loopspec[n] = ss;
-             continue;
-           }
-
          /* Avoid using an allocatable lhs in an assignment, since
             there might be a reallocation coming.  */
          if (loopspec[n] && ss->is_alloc_lhs)
            continue;
 
-         if (ss_type != GFC_SS_SECTION)
-           continue;
-
          if (!loopspec[n])
            loopspec[n] = ss;
          /* Criteria for choosing a loop specifier (most important first):