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

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

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

From-SVN: r190097

gcc/fortran/ChangeLog

 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.
 	Don't update loopspec if it would loose the wanted stride criterion.
 

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):