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

trans-array.c (gfc_conv_expr_descriptor): Move ndim initialization earlier.

Browse Source 
* trans-array.c (gfc_conv_expr_descriptor): Move ndim initialization
	earlier.

From-SVN: r180140
This commit is contained in:
Mikael Morin 2011-10-18 14:32:03 +00:00
parent 33aa08b35b
commit c2558afc97
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2011-10-18 Mikael Morin <mikael@gcc.gnu.org>
* trans-array.c (gfc_conv_expr_descriptor): Move ndim initialization
earlier.
2011-10-18 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023

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

@ -5974,6 +5974,8 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
tree to;
tree base;
ndim = info->ref ? info->ref->u.ar.dimen : info->dimen;
if (se->want_coarray)
{
codim = gfc_get_corank (expr);
@ -6046,7 +6048,6 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr * expr, gfc_ss * ss)
else
base = NULL_TREE;
ndim = info->ref ? info->ref->u.ar.dimen : info->dimen;
for (n = 0; n < ndim; n++)
{
stride = gfc_conv_array_stride (desc, n);