diff options
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 5c74883..f1c0e02 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) |