diff options
| author | Mikael Morin <mikael.morin@sfr.fr> | 2011-10-07 21:36:20 +0200 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-10-07 19:36:20 +0000 |
| commit | b0ac6998a7fd8565334e19c488aeaa73a91a1e4a (patch) | |
| tree | 3eb96d7de8f32c17cb5c92e810ab9965ef369ce5 /gcc/fortran/trans-array.c | |
| parent | 3ca398580df5bc111e2427922c5c088f693914d3 (diff) | |
| download | gcc-b0ac6998a7fd8565334e19c488aeaa73a91a1e4a.zip gcc-b0ac6998a7fd8565334e19c488aeaa73a91a1e4a.tar.gz gcc-b0ac6998a7fd8565334e19c488aeaa73a91a1e4a.tar.bz2 | |
trans-array.c (gfc_conv_section_startstride): Update assertion to also accept coarrays.
* trans-array.c (gfc_conv_section_startstride): Update assertion to
also accept coarrays.
From-SVN: r179680
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 7cc86ba..7f44514 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -3204,7 +3204,8 @@ gfc_conv_section_startstride (gfc_loopinfo * loop, gfc_ss * ss, int dim, return; } - gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE); + gcc_assert (ar->dimen_type[dim] == DIMEN_RANGE + || ar->dimen_type[dim] == DIMEN_THIS_IMAGE); desc = info->descriptor; start = ar->start[dim]; end = ar->end[dim]; |