From: Diego Novillo <dnovillo@redhat.com>
Date: Fri, 13 Jan 2006 14:20:01 +0000 (+0000)
Subject: trans.c (gfc_add_expr_to_block): Do not fold tcc_statement nodes.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=690c6eacb13e30f624963ce2abbbbeae0f25dcb3;p=gcc.git

trans.c (gfc_add_expr_to_block): Do not fold tcc_statement nodes.


	* trans.c (gfc_add_expr_to_block): Do not fold tcc_statement
	nodes.

From-SVN: r109665
---

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  <dnovillo@redhat.com>
+
+	* trans.c (gfc_add_expr_to_block): Do not fold tcc_statement
+	nodes.
+
 2006-01-11  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
 
 	* 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)