diff options
| author | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-25 20:18:21 +0000 |
|---|---|---|
| committer | Mikael Morin <mikael@gcc.gnu.org> | 2011-11-25 20:18:21 +0000 |
| commit | f6a40ccda3f1177b1fed2c79f798b50bcf298d98 (patch) | |
| tree | 56b1c81ce6bff0117fad9c0e617304d4814f6478 /gcc/fortran/trans-array.c | |
| parent | 9e08718a4ae1f5cafc67e890c5e1638454ec395f (diff) | |
| download | gcc-f6a40ccda3f1177b1fed2c79f798b50bcf298d98.zip gcc-f6a40ccda3f1177b1fed2c79f798b50bcf298d98.tar.gz gcc-f6a40ccda3f1177b1fed2c79f798b50bcf298d98.tar.bz2 | |
re PR fortran/51250 (Bug with SUM(,dim,mask))
fortran/
PR fortran/51250
PR fortran/43829
* trans-array.c (gfc_trans_create_temp_array): Get dimension from
the right gfc_ss struct.
testsuite/
PR fortran/51250
PR fortran/43829
* gfortran.dg/inline_sum_3.f90: New test.
From-SVN: r181730
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2fb2d34..943503a 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -1087,7 +1087,7 @@ gfc_trans_create_temp_array (stmtblock_t * pre, stmtblock_t * post, gfc_ss * ss, for (s = ss; s; s = s->parent) for (n = 0; n < s->loop->dimen; n++) { - dim = get_scalarizer_dim_for_array_dim (ss, ss->dim[n]); + dim = get_scalarizer_dim_for_array_dim (ss, s->dim[n]); /* For a callee allocated array express the loop bounds in terms of the descriptor fields. */ |