diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-20 17:22:50 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-20 17:22:50 +0000 |
| commit | 5eab5239e33be07284ff20441faabd94625a6082 (patch) | |
| tree | b01883a01b50c99cbeb0c9385383b50a6bc2e162 /gcc/fortran/simplify.c | |
| parent | 7469e2ba1392e5b17c9fd346fef4ea9f871a600a (diff) | |
| download | ppe42-gcc-5eab5239e33be07284ff20441faabd94625a6082.tar.gz ppe42-gcc-5eab5239e33be07284ff20441faabd94625a6082.zip | |
fortran/
PR fortran/15957
* simplify.c (gfc_simplify_reshape): Set shape of return value
correctly.
testsuite/
PR fortran/15957
* gfortran.dg/pr15957.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87764 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 61ef50bdbcb..a599f894c6d 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -2822,7 +2822,7 @@ inc: e->shape = gfc_get_shape (rank); for (i = 0; i < rank; i++) - mpz_init_set_ui (e->shape[i], shape[order[i]]); + mpz_init_set_ui (e->shape[i], shape[i]); e->ts = head->expr->ts; e->rank = rank; |
