From c6b395ddd534bc6f5779ad4689b650cf60bd22e7 Mon Sep 17 00:00:00 2001 From: pault Date: Wed, 7 Jun 2006 07:20:39 +0000 Subject: 2006-06-07 Paul Thomas PR fortran/23091 * resolve.c (resolve_fl_variable): Error if an automatic object has the SAVE attribute. PR fortran/24168 * expr.c (simplify_intrinsic_op): Transfer the rank and the locus to the simplified expression. PR fortran/25090 PR fortran/25058 * gfortran.h : Add int entry_id to gfc_symbol. * resolve.c : Add static variables current_entry_id and specification_expr. (resolve_variable): During code resolution, check if a reference to a dummy variable in an executable expression is preceded by its appearance as a parameter in an entry. Likewise check its specification expressions. (resolve_code): Update current_entry_id on EXEC_ENTRY. (resolve_charlen, resolve_fl_variable): Set and reset specifiaction_expr. (is_non_constant_shape_array): Do not return on detection of a variable but continue to resolve all the expressions. (resolve_codes): set current_entry_id to an out of range value. 2006-06-07 Paul Thomas PR fortran/23091 * gfortran.dg/saved_automatic_1.f90: New test. PR fortran/24168 * gfortran.dg/array_simplify_1.f90: New test. PR fortran/25090 * gfortran.dg/entry_dummy_ref_1.f90: New test. PR fortran/25058 * gfortran.dg/entry_dummy_ref_2.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@114461 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 84dcf68fbf9..a1631510aa6 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -869,6 +869,8 @@ simplify_intrinsic_op (gfc_expr * p, int type) return FAILURE; } + result->rank = p->rank; + result->where = p->where; gfc_replace_expr (p, result); return SUCCESS; -- cgit v1.2.3