diff options
Diffstat (limited to 'gcc/fortran/trans-io.c')
| -rw-r--r-- | gcc/fortran/trans-io.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c index 12dfcf82333..8218f85a98d 100644 --- a/gcc/fortran/trans-io.c +++ b/gcc/fortran/trans-io.c @@ -882,7 +882,8 @@ io_result (stmtblock_t * block, tree var, gfc_st_label * err_label, rc, build_int_cst (TREE_TYPE (rc), IOPARM_common_libreturn_mask)); - tmp = build3_v (SWITCH_EXPR, rc, tmp, NULL_TREE); + tmp = fold_build3_loc (input_location, SWITCH_EXPR, NULL_TREE, + rc, tmp, NULL_TREE); gfc_add_expr_to_block (block, tmp); } |