OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.

Browse Source 
* trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.

From-SVN: r180853
This commit is contained in:
Mikael Morin 2011-11-03 21:14:19 +00:00
parent ae9054ba25
commit 596a95799c
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_conv_loop_setup): Also skip temporary arrays.
2011-11-03 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_conv_ss_startstride): Access array bounds along

7
gcc/fortran/trans-array.c
View File

@ -3881,7 +3881,12 @@ gfc_conv_loop_setup (gfc_loopinfo * loop, locus * where)
loop for this dimension. We try to pick the simplest term. */
for (ss = loop->ss; ss != gfc_ss_terminator; ss = ss->loop_chain)
{
if (ss->type == GFC_SS_SCALAR || ss->type == GFC_SS_REFERENCE)
gfc_ss_type ss_type;
ss_type = ss->type;
if (ss_type == GFC_SS_SCALAR
|| ss_type == GFC_SS_TEMP
|| ss_type == GFC_SS_REFERENCE)
continue;
info = &ss->data.info;