diff options
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index a8e1126..7086a6c 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -1,5 +1,5 @@ /* Common block and equivalence list handling - Copyright (C) 2000, 2003, 2004, 2005, 2006, 2007 + Copyright (C) 2000, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. Contributed by Canqun Yang <canqun@nudt.edu.cn> @@ -693,8 +693,8 @@ create_common (gfc_common_head *com, segment_info *head, bool saw_equiv) gfc_add_decl_to_function (var_decl); SET_DECL_VALUE_EXPR (var_decl, - build3 (COMPONENT_REF, TREE_TYPE (s->field), - decl, s->field, NULL_TREE)); + fold_build3 (COMPONENT_REF, TREE_TYPE (s->field), + decl, s->field, NULL_TREE)); DECL_HAS_VALUE_EXPR_P (var_decl) = 1; GFC_DECL_COMMON_OR_EQUIV (var_decl) = 1; |