diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:37:39 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-18 14:37:39 +0000 |
| commit | 7c5950bd7f9afd05ea528fc3d42ceb63af1fd8de (patch) | |
| tree | 5ec55af0ed1f018c4aede7b9e0599c97a88c0aae /gcc/fortran/trans-array.c | |
| parent | c2558afc97c4c7c0ae0bacf9ae4f31892c9c9722 (diff) | |
| download | gcc-7c5950bd7f9afd05ea528fc3d42ceb63af1fd8de.zip gcc-7c5950bd7f9afd05ea528fc3d42ceb63af1fd8de.tar.gz gcc-7c5950bd7f9afd05ea528fc3d42ceb63af1fd8de.tar.bz2 | |
trans-array.c (gfc_conv_expr_descriptor): Save some horizontal space.
* trans-array.c (gfc_conv_expr_descriptor): Save some horizontal space.
From-SVN: r180141
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2c34590..0034b49 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -5978,16 +5978,18 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss) if (se->want_coarray) { + gfc_array_ref *ar = &info->ref->u.ar; + codim = gfc_get_corank (expr); for (n = ss->data.info.dimen; n < ss->data.info.dimen + codim - 1; n++) { /* Make sure we are not lost somehow. */ - gcc_assert (info->ref->u.ar.dimen_type[n] == DIMEN_THIS_IMAGE); + gcc_assert (ar->dimen_type[n] == DIMEN_THIS_IMAGE); /* Make sure the call to gfc_conv_section_startstride won't generate unnecessary code to calculate stride. */ - gcc_assert (info->ref->u.ar.stride[n] == NULL); + gcc_assert (ar->stride[n] == NULL); gfc_conv_section_startstride (&loop, ss, n); loop.from[n] = info->start[n]; @@ -5995,7 +5997,7 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss) } gcc_assert (n == ss->data.info.dimen + codim - 1); - evaluate_bound (&loop.pre, info->start, info->ref->u.ar.start, + evaluate_bound (&loop.pre, info->start, ar->start, info->descriptor, n, true); loop.from[n] = info->start[n]; } |