diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 20:49:14 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-03 20:49:14 +0000 |
| commit | 7f6d568e74a5392c6335384817470eebe52c2afd (patch) | |
| tree | b109ca72186acd61164bb931c4f626db34bff106 /gcc/fortran/trans-array.c | |
| parent | bee1695c2186d21d30462f1186eea09e9340aacd (diff) | |
| download | gcc-7f6d568e74a5392c6335384817470eebe52c2afd.zip gcc-7f6d568e74a5392c6335384817470eebe52c2afd.tar.gz gcc-7f6d568e74a5392c6335384817470eebe52c2afd.tar.bz2 | |
trans-array.c (gfc_trans_preloop_setup): Factor loop index initialization.
* trans-array.c (gfc_trans_preloop_setup): Factor loop index
initialization.
From-SVN: r180844
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 91359e9..e3134f5 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2863,16 +2863,15 @@ gfc_trans_preloop_setup (gfc_loopinfo * loop, int dim, int flag, continue; if (info->ref) - { - ar = &info->ref->u.ar; - i = loop->order[dim + 1]; - } + ar = &info->ref->u.ar; else - { - ar = NULL; - i = dim + 1; - } + ar = NULL; + + i = dim + 1; + /* For the time being, there is no loop reordering. */ + gcc_assert (i == loop->order[i]); + i = loop->order[i]; if (dim == info->dimen - 1) { |