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

gcc/fortran/ChangeLog

+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.

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)