git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Mikael Morin 2012-08-02 19:38:58 +00:00
parent 96b2ffe1a1
commit c0febbd3cd
2 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -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> 2012-08-02 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (set_loop_bounds): Remove useless dimension check. * trans-array.c (set_loop_bounds): Remove useless dimension check.

11
gcc/fortran/trans-array.c
View File

@ -4444,22 +4444,11 @@ set_loop_bounds (gfc_loopinfo *loop)
continue; 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 /* Avoid using an allocatable lhs in an assignment, since
there might be a reallocation coming. */ there might be a reallocation coming. */
if (loopspec[n] && ss->is_alloc_lhs) if (loopspec[n] && ss->is_alloc_lhs)
continue; continue;
if (ss_type != GFC_SS_SECTION)
continue;
if (!loopspec[n]) if (!loopspec[n])
loopspec[n] = ss; loopspec[n] = ss;
/* Criteria for choosing a loop specifier (most important first): /* Criteria for choosing a loop specifier (most important first):