trans-array.c (gfc_conv_ss_startstride): Support zero rank loop.
* trans-array.c (gfc_conv_ss_startstride): Support zero rank loop. From-SVN: r179682
This commit is contained in:
parent
287b3dd2b2
commit
199c387dd1
|
@ -1,3 +1,7 @@
|
||||||
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
|
* trans-array.c (gfc_conv_ss_startstride): Support zero rank loop.
|
||||||
|
|
||||||
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
2011-10-07 Mikael Morin <mikael.morin@sfr.fr>
|
||||||
|
|
||||||
* trans-array.c (gfc_conv_section_startstride): Move code to
|
* trans-array.c (gfc_conv_section_startstride): Move code to
|
||||||
|
|
|
@ -3279,8 +3279,7 @@ gfc_conv_ss_startstride (gfc_loopinfo * loop)
|
||||||
|
|
||||||
loop->dimen = 0;
|
loop->dimen = 0;
|
||||||
/* Determine the rank of the loop. */
|
/* Determine the rank of the loop. */
|
||||||
for (ss = loop->ss;
|
for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain)
|
||||||
ss != gfc_ss_terminator && loop->dimen == 0; ss = ss->loop_chain)
|
|
||||||
{
|
{
|
||||||
switch (ss->type)
|
switch (ss->type)
|
||||||
{
|
{
|
||||||
|
@ -3290,7 +3289,7 @@ gfc_conv_ss_startstride (gfc_loopinfo * loop)
|
||||||
case GFC_SS_COMPONENT:
|
case GFC_SS_COMPONENT:
|
||||||
loop->dimen = ss->data.info.dimen;
|
loop->dimen = ss->data.info.dimen;
|
||||||
loop->codimen = ss->data.info.codimen;
|
loop->codimen = ss->data.info.codimen;
|
||||||
break;
|
goto done;
|
||||||
|
|
||||||
/* As usual, lbound and ubound are exceptions!. */
|
/* As usual, lbound and ubound are exceptions!. */
|
||||||
case GFC_SS_INTRINSIC:
|
case GFC_SS_INTRINSIC:
|
||||||
|
@ -3300,14 +3299,14 @@ gfc_conv_ss_startstride (gfc_loopinfo * loop)
|
||||||
case GFC_ISYM_UBOUND:
|
case GFC_ISYM_UBOUND:
|
||||||
loop->dimen = ss->data.info.dimen;
|
loop->dimen = ss->data.info.dimen;
|
||||||
loop->codimen = 0;
|
loop->codimen = 0;
|
||||||
break;
|
goto done;
|
||||||
|
|
||||||
case GFC_ISYM_LCOBOUND:
|
case GFC_ISYM_LCOBOUND:
|
||||||
case GFC_ISYM_UCOBOUND:
|
case GFC_ISYM_UCOBOUND:
|
||||||
case GFC_ISYM_THIS_IMAGE:
|
case GFC_ISYM_THIS_IMAGE:
|
||||||
loop->dimen = ss->data.info.dimen;
|
loop->dimen = ss->data.info.dimen;
|
||||||
loop->codimen = ss->data.info.codimen;
|
loop->codimen = ss->data.info.codimen;
|
||||||
break;
|
goto done;
|
||||||
|
|
||||||
default:
|
default:
|
||||||
break;
|
break;
|
||||||
|
@ -3320,8 +3319,9 @@ gfc_conv_ss_startstride (gfc_loopinfo * loop)
|
||||||
|
|
||||||
/* We should have determined the rank of the expression by now. If
|
/* We should have determined the rank of the expression by now. If
|
||||||
not, that's bad news. */
|
not, that's bad news. */
|
||||||
gcc_assert (loop->dimen + loop->codimen != 0);
|
gcc_unreachable ();
|
||||||
|
|
||||||
|
done:
|
||||||
/* Loop over all the SS in the chain. */
|
/* Loop over all the SS in the chain. */
|
||||||
for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain)
|
for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain)
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue