From b0b925d402029018ff18d168c916ef731617f951 Mon Sep 17 00:00:00 2001 From: dnovillo Date: Fri, 13 Jan 2006 14:20:01 +0000 Subject: [PATCH] * trans.c (gfc_add_expr_to_block): Do not fold tcc_statement nodes. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@109665 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f82ff40597d..5f18c766185 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2006-01-13 Diego Novillo + + * trans.c (gfc_add_expr_to_block): Do not fold tcc_statement + nodes. + 2006-01-11 Tobias Schl"uter * parse.c (next_fixed): Remove superfluous string concatenation. diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 5c748833a62..f1c0e02a300 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -361,7 +361,8 @@ gfc_add_expr_to_block (stmtblock_t * block, tree expr) if (expr == NULL_TREE || IS_EMPTY_STMT (expr)) return; - if (TREE_CODE (expr) != STATEMENT_LIST) + if (TREE_CODE (expr) != STATEMENT_LIST + && TREE_CODE_CLASS (TREE_CODE (expr)) != tcc_statement) expr = fold (expr); if (block->head) -- 2.11.0