diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-02 19:38:58 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2012-08-02 19:38:58 +0000 |
| commit | c0febbd3cdaff455175eddc99bb4adef5f4a4383 (patch) | |
| tree | aac8571522f1e7e8ecfe941e2a7807f60c187f6c /gcc/fortran/trans-array.c | |
| parent | 96b2ffe1a17c8d1b6d0b94590d44aea39877e2b1 (diff) | |
| download | gcc-c0febbd3cdaff455175eddc99bb4adef5f4a4383.zip gcc-c0febbd3cdaff455175eddc99bb4adef5f4a4383.tar.gz gcc-c0febbd3cdaff455175eddc99bb4adef5f4a4383.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index feb35df..b799e24 100644 --- 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): |