From da89fba81fb25d870e75ebf454862752a8562f4c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Tobias=20Schl=C3=BCter?= Date: Mon, 20 Sep 2004 19:22:50 +0200 Subject: re PR fortran/15957 (Error in array assignments; 'shape'-related stuff) 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. From-SVN: r87764 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/simplify.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 9053f36..39f739c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2004-09-20 Tobias Schlueter + + PR fortran/15957 + * simplify.c (gfc_simplify_reshape): Set shape of return value + correctly. + 2004-09-17 Jeffrey D. Oldham Zack Weinberg diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index 61ef50b..a599f89 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; -- cgit v1.1