From 99e47bb25ceefe759b0a3d6f258f4f965da02d82 Mon Sep 17 00:00:00 2001 From: eedelman Date: Tue, 24 Oct 2006 17:01:30 +0000 Subject: fortran/ 2006-10-24 Erik Edelmann PR fortran/29393 * expr.c (simplify_parameter_variable): Keep rank of original expression. Testsuite/ 2006-10-24 Erik Edelmann PR fortran/29393 * gfortran.dg/initialize_2.f90: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118008 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/expr.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/fortran/expr.c') diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 2bf980cfa25..1f51fd09fca 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1363,6 +1363,8 @@ simplify_parameter_variable (gfc_expr * p, int type) if (e == NULL) return FAILURE; + e->rank = p->rank; + /* Do not copy subobject refs for constant. */ if (e->expr_type != EXPR_CONSTANT && p->ref != NULL) e->ref = copy_ref (p->ref); -- cgit v1.2.3