diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 841b457..e4cb94f 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1307,6 +1307,7 @@ static tree gfc_trans_character_select (gfc_code *code) { tree init, node, end_label, tmp, type, args, *labels; + tree case_label; stmtblock_t block, body; gfc_case *cp, *d; gfc_code *c; @@ -1464,7 +1465,12 @@ gfc_trans_character_select (gfc_code *code) gfc_add_block_to_block (&block, &se.pre); tmp = build_function_call_expr (gfor_fndecl_select_string, args); - tmp = build1 (GOTO_EXPR, void_type_node, tmp); + case_label = gfc_create_var (TREE_TYPE (tmp), "case_label"); + gfc_add_modify_expr (&block, case_label, tmp); + + gfc_add_block_to_block (&block, &se.post); + + tmp = build1 (GOTO_EXPR, void_type_node, case_label); gfc_add_expr_to_block (&block, tmp); tmp = gfc_finish_block (&body); @@ -1475,8 +1481,6 @@ gfc_trans_character_select (gfc_code *code) if (n != 0) gfc_free (labels); - gfc_add_block_to_block (&block, &se.post); - return gfc_finish_block (&block); } |