diff options
| author | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-25 20:18:21 +0000 |
|---|---|---|
| committer | mikael <mikael@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-11-25 20:18:21 +0000 |
| commit | b6f42c2cc3f50fa7c7982585574b9bee5536035e (patch) | |
| tree | 56b1c81ce6bff0117fad9c0e617304d4814f6478 /gcc/fortran | |
| parent | 97710b537423e1b7c476fe421e5dd159dd35e4bd (diff) | |
| download | ppe42-gcc-b6f42c2cc3f50fa7c7982585574b9bee5536035e.tar.gz ppe42-gcc-b6f42c2cc3f50fa7c7982585574b9bee5536035e.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@181730 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-array.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f0faca4b7f0..d669f5aedf6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2011-11-25 Mikael Morin <mikael@gcc.gnu.org> + + PR fortran/51250 + PR fortran/43829 + * trans-array.c (gfc_trans_create_temp_array): Get dimension from + the right gfc_ss struct. + 2011-11-25 Tobias Burnus <burnus@net-b.de> PR fortran/50408 diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 2fb2d34ae4a..943503a4274 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. */ |
